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PREFACE 


The MVS/Extended Architecture System Logic Library is intended 
for people who debug or modify the MVS control program. It 
describes the logic of most MVS control program functions that 
are performed after master scheduler initialization completes. 
For detailed information about the MVS control program prior to 
this points refer to MVS/Extended Architecture System 
Initialization Logic . For general information about the MVS 
control program and the relationships among the components that 
make up the MVS control program/ refer to the MVS/Extended 
Architecture Overview . To obtain the names of publications that 
describe some of the components not in the System Logic Library , 
refer to the section Corequisite Reading in the Master Preface 
I in MVS/Extended Architecture System Logic Library? Master Inde^ . 


| TRADEMARKS 


The following are trademarks of International Business Machines 
Corporation. 

• MVS/DFPCTM) 

• MVS/XACTM) 


HOW THE LIBRARY IS ORGANIZED 


SET OF BOOKS 


The System Logic Library consists of a set of books. Two of the 
books provide information that is relevant to the entire set of 
books: 

1. The MVS/Extended Architecture System Logic Library: Master 
Index contains the master preface master index for the other 
books in the set. 

2. The MVS/Extended Architecture System Logic Library: Module 
Descriptions contains module descriptions for all of the 
modules in the components documented in the System Logic 
Library . 

Each of the other books (referred to as component books) in the 
set contains its own table of contents and index, and describes 
the logic of one of the components in the MVS control program. 
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ORGANIZATION OF THE COMPONENTS 

Most component books contain information about one component in 
the MVS control program. However* some component books (such as 
System Logic Library: Initiator/Terminator ) contain more than 
one component if the components are closely related* frequently 
referenced at the same time* and not so large that they require 
a book of their own. 

A three or four character mnemonic is associated with each 
component book and is used in all diagram and page numbers in 
that book. For example* the mnemonic ASM is associated with the 
book MVS/Extended Architecture System Logic Library: Auxiliary 
Storage Management . All diagrams in this book are identified as 
Diagram ASM-n* and all pages as ASM-n* where n represents the 
specific diagram or page number. Whenever possible* the 
existing component acronym is used as the mnemonic for the 
component book. The Table of Book Titles in the Master Preface 
in MVS/Extended Architecture System Logic Library? Master Index 
lists the book titles* the components included in each book (if 
a book contains more than one component)* the mnemonics for the 
books* and the order number for each book. 


HOW TO USE THE LIBRARY 


To help you use this library efficiently* the following topics 
cover 

• How to find information using book titles and the master 
index 

• What types of information are provided for each component 

• How to obtain further information about other books in the 
System Logic Library 


FINDING INFORMATION USING THE BOOK TITLES 

As you become familiar with the book titles* MVS component names 
and mnemonics* and the book contents* you will be able to use 
the System Logic Library as you would an encyclopedia and go 
directly to the book that you need. We recommend that you group 
the books in alphabetical order for easy reference, or* if you 
are familiar with MVS* that you group the books by related 
functions. 

The Table of Book Titles in the Master Preface in MVS/Extended 
Architecture System Logic Library: Master Index contains a list 
of book titles and mnemonics. It provides a quick reference to 
all the books* and their corresponding components* in the System 
Logic Library . 


FINDING INFORMATION USING THE MASTER INDEX 

If you are not sure which book contains the information you are 
looking for* you can locate the book and the page on which the 
information appears by using the master index in System Logic 
Library: Master Index . For the component books* the page number 
in an index entry consists of the mnemonic for the component and 
the page number. 

For example: 

ASM-12 refers to MVS/Extended Architecture System Logic 

Library: Auxiliary Storage Management # page ASM-12. 
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INFORMATION PROVIDED FOR MOST COMPONENTS 


The following information is provided for most of the components 
described in the System Logic Library . 

1. An introduction that summarizes the component v s function 

2. Control block overview figures that show significant fields 
and the chaining structure of the components control blocks 

3. Process flow figures that show control flow between the 
components object modules 

4. Module information that describes the functional 
organization of a program. This information can be in the 
form of: 

• Method-of-Operation diagrams and extended descriptions. 

• Automatically-generated prose. The automated module 
information is generated from the module prologue and 
the code itself. It consists of three parts: module 
description, module operation summary, and diagnostic 
aids. 

5. Module descriptions that describe the operation of the 
modules (the module descriptions are contained in System 
Logic Library: Module Descriptions ) 

Some component books also include diagnostic techniques 
information following the Introduction. 


FURTHER INFORMATION 


For more information about the System Logic Library# including 
the order numbers of the books in the System Logic Library # see 
the Master Preface in MVS/Extended Architecture System Logic 
Library: Master Index . 
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| SUMMARY OF AMENDMENTS 


Summary of Amendments 
for LY28-1745-1 

for MVS/System Product Version 2 Release 2.3 


This major revision contains changes to support MVS/System 

Product Version 2 Release 2. 

Changes to this publication include: 

• MVS/Extended Architecture Data Facility Product (MVS/XA DFP) 
Version 3 Release 1.0, which introduces the storage 
management subsystem (SMS). SMS provides new function for 
data and storage management. 

• Update module IEFXB609. 

• The addition of several new checkpoint restrictions, 

• The addition of the new modules to the process flow. 

• The addition of six new modules (in logic tool format). 

IEFXBSJX 

IEFXBDYS 

IEFXBGDG 

IEFXBUSJ 

IEFXBRDC 

IEFXBSWA 

• The Preface has been updated to include the new title for 
the MVS/XA System Logic Library: Master Index and the 
deletion of the index from MVS/XA System Logic Library: 
Module Descriptions . 

• Minor editorial changes. 


Summary of Amendments 
for LY28-1745-0 

for MVS/System Product Version 2 Release 2.0 

Scheduler Restart is now the name used for this component. It 
had been called Checkpoint/Restart. 

This publication is new for MVS System Product Version 2 Release 
2.0. It contains information that was reorganized from the 
Checkpoint/Restart section in MVS/XA System Logic Library Volume 
3, LY28-1214, which applies to MVS/System Product Version 2 
Release 1.7. 

This publication contains changes to support MVS/System Product 
Version 2 Release 2.0. The changes include: 

• Updates to modules IEFXB602 and IEFRPREP. 

• Addition of information for new module IEFRCSTP. 

• Minor technical and editorial changes throughout the 
publication. 
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INTRODUCTION 


The job scheduler restart facility consists of routines that 
collect job-related information and process this information in 
the event of a job or system failure. This information is 
recorded either at programmei—designated checkpoints or whenever 
SWA-contained control blocks that are critical to a job f s 
processing are updated. This permits termination of active jobs 
in the event of a system failure. It also allows the restarting 
of a job step from the beginning/ its most recent checkpoint if 
automatic restart is requested/ or from a programmer—designated 
checkpoint if deferred restart is requested. 


RESTRICTIONS 


You can use checkpoints with the following restrictions: 

• A routine that is restricted from issuing SVCs (for example/ 
a routine executing in SRBz disabled/ or cross memory mode) 
is also restricted from establishing checkpoints because 
programmei—designated checkpoints require the use of the 
checkpoint SVC. 

• An exit routine other than the end-of-volume exit routine 
cannot request a checkpoint. 

• A routine invoked by a program call (PC) cannot request 
checkpoints because the system environment might be 
different at the time of the restart from what it was at the 
time of the checkpoint. This could lead to unpredictable 
results on the return linkage (PT). 

• A routine with a PCLINK STACK request outstanding cannot 
establish a checkpoint. 

• Routines that use both PC/AUTH and scheduler restart 
facilities must reestablish their PC/AUTH environment at 
restart. In addition/ they must not use any PC/AUTH data 
(for example/ a PC number) that was obtained prior to the 
restart. 

• Subsystems that use the TCB subsystem affinity service 
cannot issue checkpoints. This is because the subsystem 
affinity table (SSAT) index values might change from one 
system initialization to another. 

• Permanent dynamically concatenated JCL defined DDs will not 
be properly resolved on a restart. The result is a missing 
DD statement. 

• The use of permanently concatenated dynamically allocated 
datasets with automatic checkpoint restart may produce 
incorrect results. 

• Dynamically concatenated DDs may invalidate unit affinity 
requests to the DDs being concatenated. 

For additional information concerning the restrictions on the 

use of checkpoints/ see MVS/Extended Architecture 

Checkpoint/Restart . 
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Data set descriptor record CDSDR) processing routines use data 
from a checkpoint data set to update the control blocks in the 
scheduler work area (SWA). A CHKPT macro instruction results in 
the issuing of a checkpoint SVC to save information in the 
checkpoint data set. Scheduler restart routines use this 
information when a job restarts at the designated checkpoint. 

The information required by the scheduler is saved in the DSDR. 


THE JOB JOURNAL 


The job journal, a logical sequential data set residing on 
JES2*s or JES3*s direct access spool volume, provides backup 
direct access storage for the scheduler work area. It contains 
copies of SWA control blocks that are critical to the restart 
processing of a job. Each job has its own job journal, which is 
a temporary data set that exists for the life of the job. For 
each job, the initial entry to the job journal is a job header 
record (JHR). A step header record (SHR) is written to the job 
journal just prior to the job step allocation processing for 
each step. At the completion of allocation processing, the 
critical SWA control blocks for the job step are written to the 
job journal. 

As SWA is updated during the processing of each job step, a copy 
of each critical control block for the step is written to the 
job journal. Thus, an audit trail of the necessary control 
blocks for each job is maintained to provide for the 
reconstruction of the SWA for the following forms of restarts 

• Automatic checkpoint restart 

• Automatic step restart 

• System restart 

• Continue restart 

To support multiple subsequent restarts, all critical blocks for 
all steps up to the failing steps are rewritten to the job 
journal. 

Job-processing routines write the following critical SWA control 
blocks to the job journal: 

• Job control table (JCT) 

• Job control table extension (JCTX) 

• Step control table (SCT) 

• Step input/output table (SIOT) 

• Job file control block (JFCB) 

• Job file control block extension for 3800 printer (JFCBE) 

• Job file control block extension (JFCBX) 

• Passed data set information block (PDIB) 

• Generation data group name table (GDGNT) 

• Account control table (ACT) 

• Volume unload table (VUT) 

• Virtual data set control block (VDSCB) 

• Data set page control table header (DSPCT) 
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JOURNAL ROUTINES 


The journal write routine is responsible for maintaining the job 
journal. The journal write routine determines which control 
blocks are necessary for restart and writes those blocks to the 
job journal. As critical blocks are altered during the 
processing of a job step (for example* due to an open* scratch* 
close* checkpoint* or dynamic allocation procedure) the journal 
write routine writes the updated blocks to the journal. 

The SWA resides in virtual (pageable) storage and contains the 
control blocks used by the scheduler during job processing. 

When initiator routines perform termination processing at job 
step failure time* they free the SWA. If a failing job step is 
authorized for automatic restart* the SWA must be reconstructed 
using the information preserved in the job journal. The SWA 
contents are unrecoverable in the event of a system failure. 

For this situation* restart routines use the information 
preserved in the job journal to reconstruct the SWA in order to 
perform termination processing for all active jobs that are 
eligible for restart. 

For system and automatic restart processing* the journal merge 
routine reconstructs the SWA so it appears as follows: 

• When used for automatic checkpoint restart* the SWA contains 
the control blocks in effect as of the last time they were 
journalled. Dynamically allocated SIOTS that were present 
at the checkpoint are not present if they were unallocated 
after the checkpoint. 

• When a system failure occurs* the SWA contains the control 
blocks in effect at the point of failure. If a system 
failure occurs during job step termination processing* the 
job is re-enqueued for step-continue processing if there are 
any additional steps in the job. 

• When used for step-continue processing* the SWA contains the 
control blocks necessary to permit a restart at the next job 
step. 

• For automatic step restarts* the SWA contains the control 
blocks necessary to start at the beginning of the failing 
step. 
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CONTROL BLOCK OVERVIEW 


Figure 1 on page SCR-8 shows an overview of the following 
control blocks for scheduler restart. 


Acronym Control Block Name 


ACT 

CVT 

EPA 

GDG 

JCT 

JCTX 

JFCB 

JFCBE 

JFCBX 

JSCB 

LCT 

MEL 

PDI 

QMPA 

SCT 

SIOT 

SWA 

SNB 

TCB 

VAT 

VATX 

VUT 


Accounting control table 
Communications vector table 
External parameter area 
Generation data group 
Job control table 
Job control table extension 
Job file control block 

Job file control block extension for 3800 

Job file control block extension 

Job step control block 

Linkage control table 

Merge entrance list 

Passed data set information 

Queue manager parameter area 

Step control table 

Step input/output table 

Scheduler work area 

Scheduler work block 

Task control block 

Virtual address table 

Virtual address table extension 

Volume unload table 
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METHOD OF OPERATION 


This section uses diagrams and text to describe the functions 
performed during scheduler restart processing. There are two 
types of diagram formats: HIPO and prologue. 

HIPO diagrams are arranged in an input-processing-output format. 
The left side of the diagram contains data that serves as input 
to the processing steps in the center of the diagram, and the 
right side contains the data that is output from the processing 
steps. Each processing step is numbered; the number corresponds 
to an amplified explanation of the step in the "Extended 
Description" box. The object module name and labels in the 
extended description point to the code that performs the 
function. 

The following figure shows the symbols used in HIPO diagrams. 

The relative size and the order of fields in control block 
illustrations do not always represent the actual size and format 
of the control block. 


Primary processing — indicates major functional flow. 



Secondary processing — indicates functional flow 
within a diagram. 


Data movement, modification, or use. 


Data reference — indicates the testing or reading 
of a data area to determine the 
course of subsequent processing. 


Pointer — indicates that a data area contains the 
address of another data area. 


7*—Indirect pointer — indicates intermediate pointers 
have been omitted. 


Connector — indicates that a diagram is 
continued on the next page. 


Figure 3. Key to HIPO Diagrams 


Note: Brief scheduler restart module descriptions appear in 

MVS/Extended Architecture System Logic Library: Module 
Descriptions , which contains module descriptions for all the 
MVS/Extended Architecture components described in the System 
Logic Library . 
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The prologue format diagrams contain detailed information that 
is broken down into four different headings. The four headings 
and the topics they document are: 

Module Description, which includes: 

• Descriptive name 

• Function (of the entire module) 

• Entry point names, which includes: 

— Purpose (of the entry point) 

— Linkage 
- Callers 
— Input 
— Output 
— Exit normal 

— Exit error, if any 

• External references, which includes: 

— Routines 

— Data areas, if any 

— Control blocks 

• Tables 

• Serialization 

Module Operation, which includes: 

• Operation, which explains how the module performs its 
function. 

• Recovery operation, which explains how the module 

performs any recovery. 

Diagnostic aids, which provide information useful for 
debugging program problems; this includes: 

• Entry point names 

• Messages 

• Abend codes 

• Wait state codes 

• Return codes for each entry point. Within each entry 
point, return codes might be further categorized by 
exit-normal and exit-error. 

• Entry register contents for each entry point 

• Exit register contents for each entry point 

Logic Diagram, which illustrates the processing of the 
module, the input it uses, the output it produces, and the 
flow of control. 

Note: All modules in the Prolog format are grouped in 
alphabetic order following the HIPOs. The following figure 
illustrates the graphic symbols and format used in the 
Prolog format diagrams. 
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LOGICKEY - Key to the Logic Diagrams 


STEP 01 


Callers — 

f""l This paragraph describes what this module 

I U \ does. The same text appears under the 

I_ > FUNCTION heading on the Module Description 

L— 1/ page. 

LOGICKEY 


01 Numbered steps describe the 
1 — 1 processing at a high level* 

A. Lettered steps describe the processing 
at a lower level. 


ISPQAADQE SPQAEDQEI 



021 Input and output fields* 

The control block acronym or data area name 
appears above the input and output boxes* 
and the field names appear within the 
boxes. A dotted arrow means the data is 
referenced* a solid arrow means the data is 
modified. 



03 External call graphic 
— 1 passing the parameter* TR0B* 

/i-1\.- 

ITRFBR 



04 Internal call graphic (at 
— 1 the step indicated! passing 
two parameters* 


SUBROUTN; 12 



EFMSG1, TFWAPMSG 


05 Macro instruction graphic 
— 1 with these keywords* 

parameters* and options* 


(EAERIMWT, RC0) ASCB(TOBAASCB->ASCB) 
ERRET(CVTBRET) 


KSPQE 

/.- 

SPQENE XT 
SPQESPQA 
SPQETCB 



TOBAASCB 


06 Internal branch to the label 
— 1 and step indicated. 


>BRLABEL: 08 


Figure 4. Key to the Logic Diagrams (Part 1 of 2) 
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LOGXCKEY - Key to the Logic Diagrams 


STEP 07 


-K 

08 > 

-1/ 

BRLABEL 


Callers 


PARAMETERS 

TROB THISLINE 1—1 L 
MAXLINES ETPBOPTSI L- 


TTE 


TTEMBZ1 



SECONDEP 


J\ 

1 / 


001LABEL 
-> 


07 


SVC graphic. 


< 


> 


SVC 


TSOTEST 



Step 06 branches here* A 
program call (PC) graphic 
shows an exit* 


/ pc 


09 


Secondary entry point* 


This paragraph describes the function of 
this entry point. Four parameters (to the 
left) are passed an input. 



This is the beginning of an 
iterative DO group. 


A. Iterate graphic of the DO 

instruction to the specified step 
number. 


B. Leave graphic of the DO instruction 
to the specified step number. 


11 


External return graphic, to 
the calling routine. 


10 


■71 


- 

12 > 
- \t 

SUBROUTN 


— 

12 

This is an internal 
subroutine. 

This paragraph describes the function 
of this subroutine. 



Internal return graphic* to 
a step within this module. 


51 


Figure 4. Key to the Logie Diagrams (Part 2 of 2) 
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Writing Blocks to the Job Journal (1EFXB501) (Part 1 of 4) 

• Initiator (IEFSD162), 

• SWA manager (IEFQB551 or IEFQB556), 

• Step header create (IEFXB604), 

• Direct write (IDDWIJRN) (via IEFXB500 interface routine), 

• Scheduler JCL facility 


Input 

Loc. 16 


Process 


CVT 

/ 4 tcb 

y 



P 


sJ 


/ 


■ TCB double 
word — 
pointer “ 

TCBJSCB 


CVTTCBP 


Daughter 

task 

JSCB 


JSC B ACT 


JSCBJNL 


JNLPARM 


JNLPPTRX 


1 Determine if the job jounal can be written 
(updated). Unable to write. 

Writing possible. 

2 Determine which routine called for the journal 
write routine. 

A consideration of the calling routine determines 
which step will be executed. The following list 
associates a symbol with each calling routine. 

The symbols, in turn, are associated with the 
processing steps that are required to respond to 
the indicated calling routine. 


Calling Routine 

SWA Write Routine 
(IEFQB551) 

SWA Write/Locate Routine 
(IEFQB556) 

Initiator (Allocation) 
(IEFSD162) 

Direct Write 
(IDDWIJRN) 

SJF Update SWB 
(IEFSJUPD) 


Symbol 

A 


SJF Delete SWB 
(IEFSJDEL) 
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Writing Blocks to the Job Journal (IEFXB501) (Part 2 of 4) 

Extended Description Module 

This routine writes (updates) critical control blocks to 
the job journal for restart or termination preparation 
processing. 

1 Flags (JSCBJNLN, JSCBJNLF, and JSCBJNLE) in IEFXB501 

the JSCB field JSCBJNL indicate if a journal over* 
ride condition exists, if a job journal exists, or if an error 
exists on the journal (from a previous 'write' situation). 


2 The first field, JNLPCALL, of the parameter list at 
JNLPARM contains the indicator tested at this point. 

The second word of the journal parameter list contains the 
value indicated below: 


Calling 
Routine 
SWA Write 
SWA Write/Locate 

Initiator 
Direct Write 
(of non-SWA 
blocks) 


Value 

GMPA address 
External Parameter 
Area (EPA) chain address 
Linkage Control Table 
(LCT) address 
Block address 

(In this case, the third word 
contains the ID and length of 
the block.) 


SJF Update 
and SJF 
Delete 


Pointer to SWB 
chain address 
or block address 


Label 


1EFXB501 
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Writing Blocks to the Job Journal (IEFXB501) (Pait 3 of 4) 


Input 


JNLPARM QMPA 




QMSJNL ^ 


EPA 



P 

E3 

k 

(^SWA prefix 


ry 

Block 



EPA 


JNLPARM 


ID 


JNLPARM 


RBN 


LCT JCT GDGNT GDGNT 

TZ3^IZD 

JELHieM •f £L ^f 2L | 

VUT v/.rr = 



iBn 

-N^siot 

n f 1 i - siot 

✓- x JFCBX JFCBX 


Process 


Symbol 

£ A 


£ a.b 


£ C 


=> C 




A,B, 

C,D,E 


V 


Step 

3 Check for the journal all 
indicator. 

• yes 


4 Determine if the block(s) 
are critical for restart. 


5 Determine if the block to 
be written is valid. 


Invalid block I 


6 Build the prefix for the 
block (similar to the prefix " 
for the SWA blocks). 

7 Check the relative block 
number (RBN). 

• If the first time for this 
block, assign a RBN. 


8 Write all the valid block(s) 
to the job journal. 


9 If a journalling error 
occurs, issue the message 
and stop journalling. If an 
invalid block is present, set 
the return code. 


^ Step 8 
Step 8 


h Step 9 




Caller 


Output 


Non-SWA 
prefix 


£ 


RBN | 


Block virtual 
address 

Block 

ID 

Block 

length 

i i 


JNLPARM 


£ 


New RBN 
if needed 


p 


Job journal 


i> 


JSCB 


JSCBJJSB 
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Writing Blocks to the Job Journal (1EFXB501) (Part 4 of 4) 


Extended Description Module Label 

3 SWA Write (and Move): 

If this indicator (QMSJNL) is on, the routine journals the IEFXB501 SWAWRT 
control block regardless of the job state (see step 4). Only 
the terminator modules use this indicator. 


4 The journal-write module contains a list of all 

critical control blocks for the four main job states: 

• Interpreter state 

• Allocation state 

• Problem program execution state 

• Termination state 

This list (or template) also indicates critical non-SWA 
(direct write) control blocks (e.g., step header record, 

VIO data sets such as data set page control table header 
and VIO data set control block). 

The ID of each block that is scheduled to be journalled is 
found in the SWA prefix for the block. The ID is matched 
with the list in the template for the particular job state 
involved, to determine if the block is critical for restart. 


The format of the EPA appears below: 
For SWA locate:_ 


t Block to be written or read 

4 

t SWA virtual address 3 | Block ID 

1 

Length of block written or read 

4 

0 or t next EPA 

4 


For SWA move*. 


t Buffer to which block is read 4 

or from which block is written 

t SWA virtual address from which block 3 
is read or to which block is written 

l 

Block ID 


For SWA assign: 


SWA virtual address 3 

(from SWA manager) 

i 

0 

5 *i 


SWAWRT 
SWAWRT L 


Extended Description Module 

5 Direct Write: 

The parameter list contains the block ID. This ID is 
matched against the template as in step 4. 

0 The routine builds the prefix before it journals the 
block. 

7 For the first journalling of the block, the RBN (in the 
fourth word of the parameter list) is zero. This routine 
assigns a unique RBN that will be used if subsequent 
journalling of the block is required. 

3 Except when journalling control blocks at allocation- IEFXB501 
time, the order in which the blocks are journalled IEFSJGET 

depends on the order in which they are updated on SWA. 

At allocation-time, the blocks are journalled in the follow¬ 
ing order: JCT, JCTX, SCT (of current step), one or more 
GDGNT (generation data group name table), one or more 
PDI (passed data set information), one or more VUT (volume 
unload table), SWBs off the SCT (via IEFSJGET), first 
SIOT plus SWBs off the SIOT (via IEFSJGET) plus 
JFCB plug JFCBX (one or more) or JFCBE, additional 
SIOT-JFCB-JFCBXs chainsand SIOT-JFCB-JFCBE chains. 

For the allocation-time journalling, the pointer chain 
beginning at the LCT gives block addresses. 

When writing to or getting information from the journal, 
the routine uses the request parameter list (RPL) that was 
built by the SWA create routine (IEFIB600). It passes the 
address of the RPL as a parameter and a specific number in 
register 0 (to indicate whether a get, put, or forced put 
should be issued) to the journal writer GET/PUT interface 
routine (IEFXBPUT). 

IEFXBPUT interrogates register 0 and, depending on its 
contents, issues the GET, PUT, or ENDREQ macro which 
results in a forced PUT. This allows JES to get information 
from the job journal or to put a control block on the journal. 

g Error indicator in the JSCB is set, a WTP macro 
instruction is used to issue a message, a return code 
is placed in the parameter list JNLPARM, and control 
returns to the caller. 


Label 

DRTWRT 


RUNCHAIN 


JOURNAL 


ERRMSG 


’’Restricted Materials of IBM" 
Licensed Materials - Property of IBM 




SCR-22 MVS/XA SLLj Sched Restart LY28-1745-1 Cc) Copyright IBM Corp. 1987,1989 


Journal for Restarted Jobs (IEFXB501) (Part 1 of 2) 
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Journal for Restarted Jobs (IEFXB501) (Part 2 of 2) 

Extended Description Module 

1 For an automatic step restart or a checkpoint restart, IEFXB501 
write all critical control blocks from step one up to 
but not including the failing step in the journal. Blocks 
are written as if they were all part of step n-1, where n is 
the failing step's number. Critical control blocks are: 

JCT. JCTX, PDi, GDGNT, Vut, SCT, SIOT, JFCB, JFCBX, 
and SWB, JFCBE. VIO blocks are also written if SIOVAMDS 
is on. 

2 For an automatic step restart, a GET macro with 
update is issued (via IEFXBPUT), using the relative 

byte address (RBA) saved in JSCBFRBA by the merge 
routine. The job header record (JHR) is then updated by 
inserting an RBA which was saved in JSCBJRBA by 
IEFXB604. This RBA points to the SHR for step n-1 and 
will be used by the merge routine after restart. 

3 For a checkpoint restart, after allocation of the 
failing step, update the JHR by inserting JSCBJRBA 

and the RBA returned from the last PUT macro. This 
RBA will be used at restart-time to reposition the journal 
data set. 


Label 

RUNCHAIN 

RUNSIOT 

RUNSWB 


JHRUPDT 


JHRUPDT 
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Job Journal to SWA Merging (IEFXB60I) (Pari I of 2) 


Input 



indicator 


Location 16 



* The CVT actually points to a 
double word, the last half of 
which points to the TCB. 


SWA reconstruct 
(IEFIB605) 



Process 


*| Determine the type of restart and do 
either step 2, 3, 4, or 5. Then 
do steps 6 -9. 


2 For a system restart: 


3 For a ste P continue processing: 


4 For an automatic checkpoint 
restart: 


5 For an automatic step restart: 


6 Process the non-SWA control 
blocks if a system, automatic 
checkpoint restart, or step 
continue. 


7 Update the chaining fields in 
the SWA. 


8 Error processing. 


9 Free the resources. 


L 


SWA reconstruct 
(IEFIB605) 


Output 


See Appropriate Diagrams 


Diagram, System Restart Processing 


Diagram, Step Continue Processing 


Diagram. Automatic Checkpoint Restart 


Diagram, Automatic Step Restart 


Diagrams. System Restart Processing or 

Automatic Checkpoint Restart or 
Step Continue Processing 


Diagram, Updating the Virtual Addresses in SWA 


Diagram, Journal Merge Error Processing 


Diagram, Merge Cleanup 
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Job Journal to SWA Merging (IEFXB601) (Part 2 of 2) 


Extended Description Module Label 

This routine reconstructs the SWA (from the job 
journal) so it has the control blocks in effect at the 
time indicated: 

• For automatic checkpoint restart: Control blocks at time 
checkpoint was taken. 

• For automatic step restart: Control blocks at beginning of 
the failing step. 

• For system failure: Control blocks at the point of failure. 

This diagram refers to several other diagrams covering the 
checkpoint/restart functions. Each of the latter diagrams 
represents a subroutine (within module IEFXB601) that has 
a given function to perform. This present diagram contains 
general module entry-information that is also applicable to 
these subsequent diagrams. (See also, the introduction to 
this section.) 

J In the 6th byte of the merge entrance list (MEL) con- IEFXB601 IEFXB601 
tains the restart indicator as follows: 

X'08' = system restart 

X'20' = step continue 

X'40' = automatic checkpoint restart 

X'80‘ = automatic step restart 

The MEL also contains the address of the LCT (in the first 
word) and the failing step's number (in the last two bytes). 

2 For this case, a full merge of all control blocks for all SYSMERGE 

steps is performed. 


Extended Description 


Module 


Label 


3, 4, 5 For each case, a full merge of the coniioi blocks SYSMERGE 

for the non failing steps is performed, and selec- CKPTMRGE 

tive merging of fields in critical control blocks for the fail- STEPMRGE 

ing step is performed. 

6 For each non-SWA control block on the job journal, VATPUT 

an appropriate exit routine performs the required VAMPROC 

processing. 

7 The routine updates the SWA control block chaining IEFXB601 ADDRUPDT 
fields to reflect the new virtual addresses resulting 

from the SWA reconstruction. 

8 The Routine sets a return code of X'24' in register 15 ERRPROC 

and sends an appropriate message to the programmer 

and/or the operator. 

9 The routine releases the virtual address table and any 
extensions to it. 

Note: There is one entry in the virtual address table (VATI 
for each control block that the interpreter writes to the 
SWA. This entry points to the 16-byte prefix to the control 
block. When dynamic allocation routines cause the SWA's 
control block structure (that is, the relative control block 
addresses) to change during restart, the VAT updating 
routines insert the new control block addresses (of other 
journalled control blocks) into the appropriate fields of the 
control blocks in the SWA. 
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Step Continue Processing (IEFXB60I) (Put 2 of 2) 

Extended Description Module 

This routine handles the processing that allows a 
user's job to continue at the next step. 

1 This processing occurs when a step was being termi- IEFXB601 
nated at the time a system failure occurred. Since the 

job journal entries are complete, they are processed in the 
same manner as for system restarts. 

2 By resetting the JCT pointer (to the SCT), the 
restart will occur at the job step following the 

failing step. 


Label 


SYSMERGE 


CLEANUP 
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System Restart Processing (IEFXB601) (Pirt 1 of 2) 


Job journal to 
SWA merging 

Input ( 1 EFXB 601 ) Process Output 
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System Restart Processing (IEFXB601) (Part 2 of 2) 

Extended Description Module Label 

For a system restart, all control blocks for all steps 
in a job will be fully merged from the job journal to 
the SWA. (See also the diagrams Merge Cleanup and 
Updating the Virtual Addresses in SWA.) 

The prefix in the journal record contains record IEFXB601 VATPUT 

identifications. The VAT contains representations 
of all blocks in the SWA. The relative block number 
(RBN) and block ID field in the SWA prefix (for the 
record on the journal) are matched against entries in 
the VAT. 

2 If the RBN and ID fields of the prefix for a control VATPUT 

block match those in the VAT, the old virtual FLDMERGE 

address is placed in the VAT entry and the job journal 
form of the control block overlays the corresponding 
form in the SWA. (In the 'output' part of this diagram, 
the SCT is used as an example.) 

3 If the RBN and ID fields of the prefix for a SWB IEFSJPUT IEFSJPUT 

record match those in the VAT, the routine places 

the old virtual address in the VAT entry and IEFSJPUT 
unpacks the journal SWB record into SWA. 

4 The SWA manager assign routine uses the assign ASGNRITE 

function in the IEFGMREQ macro instruction to get 

storage for control blocks initially created by allocation 
routines and JFCB housekeeping routines. The assign rou- 
tine uses the RBN in the block prefix. An entry for the 
new block is made in the VAT, and the corresponding 
block is written to the SWA. 

g For an unmatched SWB record, IEFSJPUT IEFSJPUT IEFSJPUT 

unpacks the record into SWA. The routine makes 
an entry for the new SWB in the VAT. 

0 Based on the control block's ID (in the block prefix) IEFXB601 VATPUT 
the journal merge routine creates a new entry in the VAMPROC 

VAT and fills in the RBN, control block ID, and the old 
virtual address. The merge routine then calls a subroutine 
(IDDWIMRG or IDAVBPJ2) to merge the block to the 
SWA. 

The subroutine uses sn interface parameter list to obtain 
the merge information. 


Extended Description 


Module 


Label 


The parameter list used for this appears as follows: 

_ t Block being merged _ 4 

ID of block I Length of block 3 

being merged" being merged 

_ Relative block number _ 4 

New virtual address"" 4 

t GETMAIN storage area"*" 4 

"The block ID field has the following meanings: 

VIO Routine 

Block ID Control Block Performing the Merge 

X'FE' Data set page control Virtual Block 

table (DSPCT) header Processor (VBP) 

X'FC' Virtual data set Window Intercept (Wl) 

control block (VDSCB) 


•"The new virtual address is that passed to the 
appropriate VIO merge routine for all except the first 
occurrence of the control block on the job journal. 


*" "The GETMAIN area address is passed back to the 
journal merge routine by 8 VIO merge routine when 
the VIO merge routine issues a GETMAIN macro 
instruction for the block to be merged. 


All merges subsequent to the first one (for this non-SWA 
block) use this information. 


The control block's ID given in the block prefix is com- 
pared against an internal table of block IDs in the SWA to 
determine if the block (on the journal) is also in SWA. 


The journal version of the block overlays the block as it 
resides in storage. After the block has been updated, the 
pointer fields in the block and the block's address (as given 
in the VAT) are updated. 


7 The information returned from the non-SWA merge 
routine indicates the location of the merged control 
block. This address is placed in the block's VAT entry. 


VAMPROC 

VATPUT 
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Automatic Checkpoint Restart (1EFXB601) (Fart 1 of 2) 


Input Job journal to 

Abo, »M input for tha diagram (tap continue SWA marflinfl 

processing (IEFXB601) PrOCOSS Output 
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Automatic Checkpoint Restart (IEFXB601) (Part 2 of 2) 

Extended Description Module 

This routine merges control blocks from the job journal 
to the SWA for failed jobs that are eligible for an 
automatic checkpoint restart (checked via indicator in 
MEL). See also diagram, merge cleanup and updating the 
virtual addresses in SWA. 

1 Compare the step number in the step header record IEFXB601 

with the step number in the MEL. For a step header 

record, the SWPID field of the block prefix is X'CO\ 

2 See the Diagram, system restart processing for 
processing of steps prior to the failing step. 

3 Examples of critical-information fields are the 
checkpoint and job status information fields of 

the JCT, the volume and label information fields of the 
JFCB, and the chain pointer fields of the SCT, SIOT, 
and JFCB. In addition, the routine updates the old 
virtual address field of the block's entry in the VAT. 

4 The fields containing the critical information are 
merged from the job journal to the SWA. 

5 See the diagram, system restart processing for assign 
details. The blocks include the SIOTs, JFCBs, JFCBEs, and 

JFCBXs created by dynamic allocation and JFCB house¬ 
keeping routines. The SWA manager assign and write rou¬ 
tines specifically assigns these blocks and writes them to the 
SWA. The newly-created VAT entries fo. these blocks con¬ 
tain the RBN, ID, old virtual address, and new virtual 
address. 

6 See the diagram, system restart processing, step 3. 

7 From the job control table written by the checkpoint 
SVC routine, save the RBA (relative bjock address) 

field for the system message data set. From the journal 
RPL (JNL RPL), save the RBA of the JCT written by the 
checkpoint SVC. 


Label 


CKPTMRGE 

VATPUT 

FLDMERGE 

ASGNRITE 

VATPUT 


CKPTMRGE 
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Automatic Step Restart (IEFXB601) (Put 1 of 2) 


Job journal to 
SWA merging 

Input (IEFXB 601 ) Process Output 
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Automatic Step Restart (IEFXB601) (Part 2 of 2) 

Extended Description Module 

This routine merges control blocks from the job 
journal to the SWA for failed jobs that are eligible for 
an automatic step restart (checked via indicator in MELI. 

See also diagrams, merge cleanup and updating the 
virutal addresses in SWA. 

*1 Check the step number field in the step header IEFXB601 

record and compare it against the failing step number 
given in the merge entrance list (MEL). (See diagram, 
automatic checkpoint restart.) 

2 See diagram, system restart processing. 

Note: If the step numbers do not match, the step is non¬ 
failing. 

3 The RBA fields saved are for the job journal and the 
system message data set. The fields are located in the 

step header records. 

For each critical control block associated with the step, the 
routine updates the old virtual address field in the VAT. 

For example, selective merging involves the following fields 
in the indicated blocks: 

JCT: job status information and restart switches. 

JFCB and JFCBX: volume information. 

JFCB: MOD data set information for TTR and track 
balance considerations. 

JFCBE: 3800 printer parameters. 

4 Pointers are established using the RBAs saved from 
the step header record. The pointers show the step's 

entry in each data set. 


Label 

STEPMRGE 


VATPUT 

FLDMERGE 
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Mcffe Cleanup (1EFXB601) (Put 1 of 2) 


Input 


Job Journal to 
SWA merging 

(IEFXB601) p rpoet$ 


Output 








LY28-1745-1 (c) Copyright IBM Corp. 1987,1989 Method of Operation SCR-35 


Merge Cleanup (IEFXB601) (Part 2 of 2) 

Extended Description Module 

This routine does the clean-up functions for automatic 
checkpoint or step restart or for step continue 
prbcessing. 

*| The latest version of this field information comes from IEFXB601 
the job journal (the JCT block). The JCTJSB informa¬ 
tion overlays that in the JSC8JJSB. 

2 The relative block addresses used for repositioning 
the data sets are obtained from the step header record 

for automatic step restart or from the JCT and request 
parameter list (RPL) for automatic checkpoint restart. 

3 The VAT and any extensions to it are released. 

4 An error return code of X’24’ causes the job to be 
purged from the system. A normal return code of 

X'OO’ permits restart to continue. 


Label 


CLEANUP 
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Updating the Virtual Addresses in SWA (1EFXB601) (Fart I of 2) 

Job journal to 
SWA merging 


Input (IEFXB 601 ) Process Output 
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Updating the Virtual Addresses in SWA (IEFXB60I) (Part 2 of 2) 


Extended Description Module Label 

For each entry in the VAT, this routine updates the 
virtual address of all the block's fields that are changed. 

1 The block ID field in the VAT contains an indication IEFXB601 ADDRUPDT 

of the control block being processed. The routine then 

processes consecutively all entries in the VAT. 

2 The new virtual address field in the VAT entry for the 
block provides the new location in the merged SWA. 

The routine then reads the control block being processed. 

The SWPID field in the SWA prefix indicates the control 
block that is being updated. 

3 An internal table contains the necessary update infor¬ 
mation. This information includes the displacements 

and lengths of all fields that require updating. There is one 
table per control block being updated. 

4 For each address to be updated, the value in the new UPDATE 

virtual address field (of the VAT entry for the changed PTRUPDTE 

control block field) replaces the existing old virtual address 
field in the control block. 
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Journal Merge Reading (1EFXB60I) (Part I of 2) 


Job journal to 
SWA merging 
(IEFXB601) 


Input 


JSCB RPL 



Job journal 



RPL Read buffer 



Register 15 RPL 


0 




RPLFDBK 


Process 


Output 




v> 2 


T> 3 



Read a record from the job 
journal. 


If the record is a Job Header 
Record (JHR), save its 
address in the JSCB. 


If the record is a JHR 
modified by a restart, 
reposition the job journal 
to the proper entries. 


a 


a 


a 


If an error is encountered 
during a GET or POINT 
operation, set the return 
code to indicate a journal 
error. 


ERRPROC 


error: 


► 


Read buffer (JNLBUF) 


SWA prefix 


Record 


JSCB RPL 



Job journal 



Journal 
positioned to 
proper entries 
based upon 
data in 
JHRJRBA 
field of JHR 


5 If no error is encountered, 
continue the journal merge 
processing. 



■ 


jJMjHlEFXB601) 
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Journal Merge Reading (IEFXB601) (Part 2 of 2) 

Extended Description Module 

This routine is responsible for all reading from the job 
journal required for merge processing. 

J A record is read from the job journal using the request IEFXB601 
parameter list (RPL) pointed to by the active JSCB 
(JSCBJNLR). 

2 A job header record has a control block ID (X'CI') in 
the SWA prefix. Save the address, which was passed 

back in the RPL, (RPLRBAR) in the active JSCB 
(JSCBFRBA) for journal data set repositioning. 

3 A job header record written as a result of a restart 
contains job journal repositioning information in the 

field JHRJRBA. This value is used to issue the POINT macro 
to position the job journal to the proper entries. 

4 Any non-zero return code in register 15 (other than 
a logical error indicating end of file — R15=8, 

RPLERRCD-0004) is considered an error condition. An 
error return code is set and ERRPROC receives control. 

(Refer to Journal Merge Error Processing diagram). If 
normal return code, journal merge processing is continued. 


Label 


READPROC 
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Journal Merge Error Processing (IEFXB60 1 ) (Part I of 2) 


Input 


Job journal to 
SWA merging 
(IEFXB601) 


Process 


Output 
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iGSrasI Merge Error Processing (IEFXB6U,',' 2 of 2) 

Extended Description Module 

This processing handles errors that may be encountered 
during SWA reconstruction or In accessing the job 
journal. It issues an appropriate message and, for either 
automatic step or automatic checkpoint restart, it informs 
the operator that the job has been cancelled. 

1 The return code is set to X'08\ IEFXB601 

2 The return code is set to X'04*. 

3 The return code is set to X'04\ 

4 This message is intended for the programmer and is 

written to the SYSOUT data set. 

5 The message is written to the programmer via the 
SYSOUT data set, and a message is written to the 

operator via the WTO macro instruction. 

0 The journal error bit in the JSCB is turned on. 

7 The.routine releases the VAT resource, and returns a 
code of X*24* in register 15. 


1 «bel 


ERRPROC 
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zb-aos 


Move Mode Restart Interface Processing (IEFXB602) (Part l of 2) 


Interpreter 


Input (iefvhq) Process Output 



*lf request is other than write or 
write assign, omit steps 3 and 5. 
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Move Mode Restart Interface Processing (IEFXB602) (Part 2 of 2) 

Extended Description Module Label 

This routine builds a virtual address table (VAT) to be 
used by the journal merge routine during SWA recon* 
struction processing. 

1 The VAT is an 800*yte table. The JSCB pointer to IEFXB602 VATBUILD 
the VAT is constructed. 

2 If either a write or a write/assign function is 
requested, the routine determines the number of 

entries to be made in the VAT after the SWA manager 
performs its function. 

3 The routine uses the external parameter area (EPA) to 
get the SWA virtual address (used for the initial 

VATNVA field in the VAT) and the block in ;* “ ne exists. 

^ me routine uses the IEFQMREQ macro instruction to 
give control to module IEFQB551. The operation field, 

QMPOP, indicates whether the function is a write, a write/ 
assign, an assign, a write all, a read all, or a read operation. 

The VAT updating occurs only for a write/assign, an assign 
operation, or a write all or write. 

5 The relative block number (RBN) is placed in the VAT 
for each entry, and the block ID field of the VAT is 

filled in if not already there. 

6 The routine returns control to the interpreter. The 
output to the interpreter is the same as the input from 

the interpreter but with additional information that was 
filled in by the SWA manager routing. 
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Building Step Header Record for Job Journal (1EFXB604) (Part 1 of 4) 

Input__ 


Initiator: step 

initiation (IEFSD162) PrOC6SS 


JSCB 


JSCBJJSB 



=> 


Register 1 


LCT 


JCT 


LCTJCTAD 


IA 


LCTSCTAD 


JCTJSBAL 


4sct 



Step 

number 

(SCTSNUMB) 


__ 



JSCB 


RPL 



/ 

Relative byte 
address . 
(RPLRBAR) 

£ 2 

/ 

_ 




I 

I 

.1 


=J> 


1 Check for a no job journal 
or a journal error. 


2 If this step is the first step of a 
normal job in process or the 
first step of a restart job: 


3. Write the job header record 
(JHR) and the step header 
record (SHR) in the journal. 


b. Save the relative byte 
address (RBA) of the SHR 
record. 


3 If this step is a checkpoint 
restart for a step other than 
the first step (step n): 


3 . Write the JHR and the SHR 
for step (n-1), and all blocks 
from step 1 up to step n In 
the journal. 


b. Save the RBA of the SHR 
for step (n-1). 

C # Write the SHR for step n 
in the journal. 


5 


Output 


=a 






JHR 


c 


SHR 


c 


Register 1 JNLPARM 

n=c= 


JSCB 


JSCBJRBA 


Job journal 



Restart job 
processing 



journal 
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Building Step Header Record for Job Journal (IEFXB604) (Part 2 of 4) 

Extended Description Module Label 

1 Check the JSCBJNLF and JSCBJNLE bits in the IEFXB604 

JSCBJJSB field to determine whether there is no 

job journal or there is a journal error. Change job state 
in the JSCB to in allocation. 

2 If the failing step is the first step of the job or if it 
is the first step of a non-restart job, write the JHR 

and the SHR in the journal. Set JCTJSBAL to indicate 
that the job state is in allocation, and write the job 
control table (JCT) in the journal for all jobs except 
automatic checkpoint restart jobs, to record the in 
allocation status. 

3 If the failing step (step nj is any step but the first 
step of an automatic checkpoint job, write the 

JHR and the SHR for step n-1 in the journal, and all the 
control blocks of all previous steps up to but not 
including the failing step. This information must be 
saved to permit a possible subsequent restart. Finally, 
write the SHR for step n in the journal. 
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Building Step Header Record for Job Journal (IEFXB604) (Part 3 of 4) 


Input 



JSCB 


RPL 



Register 1 



Process 


2 


L± 




4 If this is a step restart for any 
step but the first step (step n): 


a. Write the SHR for step n 
in the journal. 


b. Write the JHR and the SHR 
for step (n-1), and all blocks 
from step 1 up to step n in 
the journal. 


C. Save the RBA of the SHR 
for step (n-1). 


d # Write the SHR for step n 
in the journal. 


■ — 5 If this is a non-restart job for 

any step but the first step: 


a b Write the SHR for the 
current step In the journal. 


6 Turn off all the restart bits in 
the linkage control table (LCT). 


t 


Initiator: step 
initiation (IEFSD162) 


Output 


3 


3 


a 


Job journal 



■ n 

■ n-1 


Job journal 



Register 1 
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Building Step Header Record for Job Journal (IEFXB604) (Part 4 of 4) 
Extended Description Module Label 

4 If the failing step is any step but the first step of a IEFXB604 

step restart job, write the SHR for step n, and then 

write the JHR and.the SHR for step n-1 in the journal. 

Write all the control blocks for steps 1 thru n-1. and 
lastly write the SHR for step n in the journal once again. 

As in step 3, this information is saved to permit a 
possible restart. 

5 If the failing step is any step but the first step of a 
non*re$tart job, write the SHR of the current step 

in the journal. Again, this information is saved to permit 
a possible restart. 

6 Turn off all restart bits (LCTRFBSM, LCTRFBCR, 
and LCTRFBDC) before exiting. 
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Locate Mode Restart Interface Processing (IEFXB61I) (Pari l of 2) 
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Locate Mode Restart Interface Processing (IEFXB611) (Part 2 of 2) 
Extended Description Module 

This routine builds a virtual address table (VAT) entry 
for each SWB when called by the scheduler JCL facility. 

This table is used by the journal merge routine during 
SWA reconstruction processing. 

^ The VAT is an 800-byte table. The JSCB pointer to IEFXB611 
the VAT is constructed. 

2 If a write/locate function is requested, the 
routine determines the number of entries to be 

made in the VAT after the SWA manager performs 
its function. The relative block number (RBN) is 
placed in the VAT for each entry, and the block ID 
field of the VAT is filled in if not already there. 

3 The routine uses the external parameter area (ERA) 
to get the SWA virtual address (used for the initial 

VATNVA field in the VAT) and the block ID if one 
exists. 

4 The routine gives control to module IEFQB556, the 
SWA manager locate mode. 

g The routine returns control to the scheduler JCL 
facility. The output to the scheduler JCL facility 
is the same as the input from the scheduler JCL facility 
but with additional information that was filled in by the 
SWA manager routine. 


Label 


VATBUILD 
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Preparing an Abended Job Step for Restart (IEFRPREP) (Pan l of 4) 


Unallocation 
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Preparing an Abended Job Step for Restart (1EFRPREP) (Part 2 of 4) 

Extended Description Module Label 

This routine determines if an abended (abnormally 
terminated) Job step task can be restarted. If it can, 
the routine prepares the task for a restart. 

1 a) Test JCTNORST. IEFRPREP IEFRPREP 

b) The job cannot restart if, after a checkpoint was 
taken, dynamic allocation routines have scratched a 
dynamically allocated data set that is used by the job. 

c) Test JCTCKFT. 

d) Check TCBCMP against the IEF YRCDS table of codes 
eligible for automatic restart. 

e) The job journal must have bfeen specified as a SYSGEN 
option or at IPL time. Test JSCBJNLF. 

f) Test JSCBJNLE. The routine IEFXB500 will have set 
this flag if an error occurred during a previous writing of 
information to the job journal. 

2 Routine issues a WTOR macro instruction for the 
operator to give decision regarding a restart. 

3 For any negative response in steps 1 and 2, go to 
step 7. 


JNL03 

JNL02 

JNL01 

RP130 
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Preparing an Abended Job Step for Restart (IEFRPREP) (Part 3 of 4) 


Input 


JCTRSW1 



JCTWARMS 


JCT fin SWA) 


Process 


4 Release the job journal override 
indicator if this is a warm start. 


5 Fill in the selected control 
block fields. 


6 Write the updated JCT to the 
job journal. 


7 Release the override indicator for 
the job journal if the job is a warm 
start job. 


Output 


* Un- 

allocation 

(IEFBB410) 




8 Fill In the selected control block 
field. 


9 Write the updated JCT and SCT 
to the job journal. 


10 Set the override indicator for the 
job journal. 


Job journal 


Unallocation 

(IEFBB410) 


"Restricted Materials of IBM" 
licensed Materials - Property of IBM 



LY28-1745-1 (c) Copyright IBM Corp. 1987,1989 Method of Operation SCR-53 


Preparing an Abended Job Step for Restart (IEFRPREP) (Part 4 of 4) 

Extended Description Module Label 

4 The override indicator in the JSCB is set off to allow IEFRPREP 
writing on the journal if the job is a warm start job. 

Otherwise, the indicator is already off at entry time. 

5 Field indicators affected: 

e JCTACODE (same information as TCBCMP). 

• JCTCKPTR (if checkpoint restart). 

• JCTSTEPR (if step restart). 

• JCTSCT (with value from SCTSNUMB). Based on operator 
reply, either hold job or re-enqueue job for immediate 
restart. Save restart step's SCT pointer (in field JCTSSTR). 

• JCTJSBEX and JSCBJSBX (same information; that is, the 
job is executing). 

• JCTJSBTM and JSCBJSBT (same information; that is, the 
job is terminating). 

6 This prohibits writing on the job journal (see step 4). IEFXB500 

7 Set override bit as in step 4 to 8llow updating of job IEFRPREP 

journal. 


Extended Description Module Label 

8 Fields (indicators) affected: 

• JCTCKPTR (see step 5) 
e JCTSTEPR (see step 5) 

• JCTRESTT (no-restart indicator) 

• JCTACODE (see step 5) 

• JCTABEND 

• SCTONLYC (condition code, for use by allocation) 
e SCTABEND 

9 The routine writes the JCT and SCT to the job journal. IEFRPREP CABEND2 

IEFQB550 

IEFXB500 

10 The routine sets the override bit on to suppress IEFRPREP 

further writing to the job journal until the job has 

restarted. 
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IEFRCSTP - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Restart Codes Statement Processor 
FUNCTION: 

IEFRCSTP is used to customize the standard IBM 
supplied list of ABEND codes eligible for automatic 
restart. This list of codes is contained in IEFYRCDS, 
a data only module residing in SYS1.LINKLIB. 

IEFRCSTP is invoked by the Generalized Parmlib Scan 
Routine (IEEMB888). 

Two entry points have been defined within IEFRCSTP: 

- Entry point IEFRCADD is responsible for processing 
RESTART type statements in the SYS1.PARMLIB member 
SCHEDxx. The RESTART statement enables an installation 
to expand the IBM supplied list of codes from IEFYRCDS 
to include user defined ABEND codes. 

- Entry point IEFRCDEL is responsible for processing 
NORESTART type statements in the SYS1.PARMLIB member 
SCHEDxx. The NORESTART statement enables an 
installation to delete codes from the list of codes 
eligible for automatic restart. This list includes 
both the IBM supplied and the user defined codes. 

ENTRY POINT: IEFRCADD 

PURPOSE: See Function 
LINKAGE: CALL 
CALLERS: IEEMB888 
INPUT: 

Statement Processor Parameter List (IEEZB821) 


FIELD 

LENGTH/MASK 

DESCRIPTION 

STMTP 

STMTID 

36 

4 

Identifier r STMT* 

STMTVERS 

1 

Version number 

STMTFLAG 

1 

Control flags 

STMTENT 

x*80 1 

STMT type entry 

STMTEOP 

x*40' 

EOP type entry 

STMTERR 

x 1 20 1 

Error in statement 

STMTLEN 

2 

processor routine 

Length of parameter 

STMTSUFX 

2 

list 

Suffix of the 

STMTRECL 

2 

SYS1.PARMLIB member 
being processed 

Length of STMT record 

STMTRECD 

4 

Address of a complete 

STMTUSEP 

4 

logical record 

Pointer to a user 

STMTNVTP 

4 

parameter area 

Pointer to the NVT 

STMTNUMB 

4 

Record number within 

STMTRSV1 

8 

SCHEDxx being processed 
Reserved 


OUTPUT: 

Updated version of the table of restart codes 
eligible for automatic restart 

EXIT NORMAL: Return to caller 

EXIT ERROR: None. IEFRCSTP will not return if ABBENDED. 

ENTRY POINT: IEFRCDEL 
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IEFRCSTP - MODULE DESCRIPTION (Continued) 


PURPOSE: See Function 
LINKAGE: CALL 
CALLERS: IEEMB888 
INPUT: same as for IEFRCADD 
OUTPUT: same as for IEFRCADD 
EXIT NORMAL: Return to caller 

EXIT ERROR: None. IEFRCSTP will not return if ABBENDED. 

EXTERNAL REFERENCES: 

ROUTINES: 

IEEMB887 - Routine that parses the RESTART/NORESTART 

statement for valid keyword and abend codes 

DATA AREAS: 

IEFYRCDS - Data only module containing the IBM supplied 
list of system completion codes eligible for 
automatic restart 

CONTROL BLOCKS: None 

TABLES: 

IEFRSTB - Table of codes eligible for 
automatic restart 

PARSETAB - Table of parse arguments to be passed to 
the generalized parser (IEEMB887) 

EBCDICX - Translate table used to convert EBCDIC to 
internal hex 

HEXTABLE - Translate table used to flag any 
non-hexadecimal character 

ALLTABLE - Translate table used to parse through an 
erroneous string so that all characters 
will pass 
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IEFRCSTP - MODULE OPERATION 


This module processes RESTART/NORESTART statements 
in the SYS1.PARMLIB member SCHEDxx. It does the 
following: 

1. On the first statement (STMT) entry to IEFRCSTP, 
the IBM supplied list of system completion codes 
eligible for automatic restart will be loaded into 
storage. This list is contained in IEFYRCDS, a 
data only module residing in SYS1.LINKLIB. 

IEFRCSTP will obtain storage from extended CSA 

to accomodate the default list plus an additional 
50 entries. A copy of the IBM supplied list of 
codes eligible for automatic restart will be placed 
in the storage area obtained and anchored in the 
JESRSTRT field of the JESCT. The IBM supplied list 
will be used as a base and entries will be added or 
deleted, based on any RESTART/MORESTART statements 
that appear in the SYS1.PARMLIB member SCHEDxx, 
to form the table of codes eligible for automatic 
restart (IEFRSTB). 

2. For each STMT entry, IEFRCSTP calls the Generalized 
Parse Routine (IEEMB887) to parse the statement 
for valid syntax. 

If the statement is valid, the codes specified are 
either deleted from the table of codes eligible for 
automatic restart (IEFRSTB), or added to the end of 
the user defined portion of the fable. 

IEFRCSTP will continue processing codes until the 
end of the statement or an erroneous code is 
encountered. 

If an invalid code is encountered, IEFRCSTP will 
issue an informational message and stop processing 
the statement. The remainder of the statement 
will be ignored. 

3. On the end of processing (EOP) entry, if no valid 
RESTART/NORESTART statements were specified, 

IEFRCSTP will obtain storage from extended CSA. 
IEFRCSTP will then load the IBM supplied list of 
system completion codes eligible for automatic 
restart, found in data only module IEFYRCDS, 

and copy if into the storage area obtained. In this 
case the table of codes eligible for automatic 
restart (IEFRSTB) will consist only of the IBM 
supplied list of codes eligible for automatic 
restart. 

4. If no operands are specified on the RESTART/ 
NORESTART statement, IEFRCSTP will issue an 
informational message stating that no operands 
were specifed. The statement will be ignored. 

IEFRCSTP is entered at one of two points, IEFRCADD 
or IEFRCDEL. The point of entry is determined by 
the general parmlib scan routine, IEEMB888. 

- When IEEMB888 invokes IEFRCSTP to process a RESTART 
statement type, control is passed to the RESTART codes 
statement processing entry point within IEFRCSTP 
(IEFRCADD). The restart statement processing will then 
search through the restart codes table (IEFRSTB) for a 
matching code. If a matching code is not found, the 
restart codes statement processing will add the valid 
code to the user defined portion of IEFRSTB. 

If a matching code is found, the restart codes statement 
processing will issue an informational message stating 
that a duplicate code exists. 
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IEFRCSTP - MODULE OPERATION (Continued) 


- When (IEEMB888) invokes IEFRCSTP to process a 
NORESTART statement type* control is passed to the 
NORESTART statement processing entry point within 
IEFRCSTP (IEFRCDEL). The NORESTART statement processing 
looks for a matching code in the table of restart codes 
(IEFRSTB). If a matching code is found* the code will 
be deleted from the table. If a matching code is not 
found* the NORESTART statement processing will issue an 
informational message stating that the code was not 
found. 


Diagram of IEFRSTB: 

(the table of eligible restart codes) 


HEADER 


length of IBM supplied I 
portion of the table I 


the standard IBM supplied list of 
system completion codes eligible 
for automatic restart 


length of user defined I 
portion of the table I 

_I 


the list of user defined 
completion codes eligible 
for automatic restart 


RECOVERY OPERATION: 

The processing for this module takes place during 
nucleus initialization (NIP) time. Although an ESTAE 
environment could be established at this point* if an 
ABEND did occur* control would not be received because 
RTM is not fully initialized yet* therefore an ESTAE 
environment is not established. 
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1EFRCSTP - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFRCADD 
IEFRCDEL 


MESSAGES: 

IEF738I mem LINE nun: <RESTART,NORESTART> STMT IGNORED. 
NO OPERANDS SPECIFIED. 

IEF734I mem LINE num: <RESTART,NORESTART> <CODE code, 
STATEMENT <IGNORED,ACCEPTED>. REASGN= Kyrc 

Where: 

mem - indicates which SCHEDxx SYS1.PARMLIB member 
contains the bad statement 

num - indicates which line in the SCHEDxx SYS1.PARMLIB 
member is being processed 

code - indicates the abend code (specified on the 
statement) in error 

kyrc - represents a keyword-reason code for the error 
encountered 

ky - keyword> the numerical representation of the 
keyword being processed (decimal) 
rc - reason code, the numerical representation of the 
error encountered (decimal) 

The following are valid keyword/reason code (kyrc) 

combinations: 

ky: 01 - Unexpected data encountered 

rc: 08 - Unrecognized keyword 
28 - Keyword list not valid 
44 - End delimiter in a keymord list (right 
parenthesis) missing 

48 - Data following keyword list ending delimiter 
(right parenthesis) encountered 

ky: 02 - CODES( 

rc: 16 - Value out of range 
52 - Code already exists 
56 - Code not found 
60 - Duplicate keyword encountered 


ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFRCADD: 

EXIT NORMAL: 

0 - Request successfully completed 
ENTRY POINT IEFRCDEL: 

EXIT NORMAL: 
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ZEFRCSTP - DIAGNOSTIC AIDS (Continued) 


0 - Request successfully completed 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFRCADD: 

Register 0 = Undefined 

Register 1 = Address of a word that points to 

a parameter list 
Registers 2-12 = Undefined 

Register 13 = Address of savearea 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT IEFRCDEL: 

same as for IEFRCADD 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFRCADD: 


Registers 0-14 = Restored 

Register 15 - Return Code 

ENTRY POINT IEFRCDEL: 


same as for IEFRCADD 
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IEFRCSTP - Restart Codes Statement Processor 


STEP 01 


PARAMETERS 

IsTKTP 


XEFJESCT 

[jESRSTRT 


XEEZB821 

IsTMTENT 


XEFJESCT 

|JESXB603 



XEFRCSTP 


IEEMB888 




J 


> 



IEFRCSTP is used to customize the standard 
IBM supplied list of ABEND codes eligible 
for automatic restart. This list of codes 
is contained in IEFYRCDS> a data only 
module residing in SYS1.LINKLIB. IEFRCSTP 
is invoked by the Generalized Parmlib Scan 
Routine (IEEMB888). Two entry points have 
been defined within IEFRCSTP: 

- Entry point IEFRCADD is responsible for 
processing RESTART type statements in the 
SYS1.PARMLIB member SCHEDxx. The RESTART 
statement enables an installation to 
expand the IBM supplied list of codes from 
IEFYRCDS to include user defined ABEND 
codes. 

- Entry point IEFRCDEL is responsible for 
processing NORESTART type statements in 
the SYS1.PARMLIB member SCHEDxx. The 
NORESTART statement enables an 
installation to delete codes from the list 
of codes eligible for automatic restart. 
This list includes both the IBM supplied 
and the user defined codes. 


01 


Entry point for processing 
the RESTART statement type 
in the SYS1.PARMLIB member 
SCHEDxx. 


02 


If the table of restart 
codes CIEFRSTB) has not been 
anchored in the JESCT, does 
the following: 


A. Initializes the table of restart codes 
(IEFRSTB) and anchors it in the JESRSTRT 
field of the JESCT. 

/I-1\.- 


INITTAB: 11 


03 If this invocation is for 
— 1 statement (STMT) processing, 
does the following: 


A. Sets function indicator to ADD, 
indicating RESTART processing 


B. Checks the validity of the input string 
/\ - 1 \.- 


CHECKREC 


04 


Otherwise, this invocation 
is for end of processing 
(E0P)• 


JMEFJESCT 


i/ 


JESXB603 
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XEFRCSTP - Restart Codes Statement Processor STEP 05 


05 


Returns to XEEMB888 


[71 


PARAMETERS 

IsTMTP 


IEEMB888 



IEFJESCT r-> 

JESRSTRT 


IEEZB821 j-> 

STMTENT I 


IEFJESCT r-> 

JESXB603 I 


06 


Entry point for processing 
the NORESTART statement type 
in the SYS1.PARMLXB member 
SCHEDXX. 


07 


If the table of restart 
codes (IEFRSTB) has not been 
anchored in the JESCT, does 
the following: 


A. Initializes the table of restart codes 
(IEFRSTB) and anchors it in the JESRSTRT 
f ield of the JESCT. 


INITTAB: 11 



If this invocation is for 
statement tSTMT) processing, 
does the following: 


A. Sets function indicator to DEL, 
indicating NORESTART processing 


B. 


Checks the validity of the input string 



CHECKREC 



Otherwise, this invocation 
is for end of processing 
(EOP). 



Returns to IEEMB888 


tn 


-KXEFJESCT 

1 / 


JESXB603 
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XEFRCSTP - Restart Codes Statement Processor 


STEP 11 


-'\ 

11 > 
- 

INITTAB 


Initializes the table of 
codes eligible for automatic 
restart (XEFRSTB) with the 
IBM supplied defaults. 


Loads XEFYRCDS, the module 
containing the IBM supplied 
default list of codes 
eligible for automatic 
restart, into storage. 


XEFRSTB 


RSTBHEAD RSTBCODE 


XEFRSTB 


RSTBSLEN 


Calculates storage needed to 
hold default table plus 50 
additional entries. 


14 Obtains storage for the IBM 

- 1 supplied list of restart 

codes plus the additional 50 
entries. 


Copies the IBM supplied list 
of restart codes from 
XEFYRCDS into the storage 
obtained and anchors the new 
table (XEFRSTB) in the 
JESRSTRT field of the JESCT. 


Initializes the header, 
including the pointers used 
to reference the table of 
restart codes (XEFRSTB). 


HDRSETUP 



KIEFJESCT 


JESRSTRT 


XEFRSTB 


RSTBSLEN 


XEFRSTB 


RSTBUSR 


Deletes XEFYRCDS, the module 
containing the IBM supplied 
default list of codes 
eligible for automatic 
restart, from storage. 


Returns to the subroutine 
caller. 



\IEFRSTB 

IrstblastI 
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IEFRCSTP - Restart Codes Statement Processor 


STEP 19 


KYWRDYES 

XEEZB815 J-> 

SCLUSER 


ZEEZB815 


SCLSTOP 


j - *" 


-K 

v 


XEEZB815 




SCLSTOP 


XEEZB815 

IsCLNDSCN 



1/ 


19 


Valid Keyword encountered in 
the input string routine. 


20 


Translates the keyword id, 
passed in SCLDATA, from 
Hexadecimal form to EBCDIC 
representation. 


21 


Determines if the keyword 
being processed was 
previously encountered. 


A. If no duplicate keywords were 

encountered on the statement, processing 
is continued. Determines which keyword 
is being processed. 


B. Otherwise, a duplicate keyword was 
encountered and message IEF734I is 
issued indicating this situation. 



MSGRTN 


22 


Returns to XEEMB887 (the 
generalized parser). 


J \XEEZB815 
i y \ - 1 


SCLRET 


J\XEEZB815 
V\ - 1 


SCLRET 


JMEEZB815 



XEEZB815 

ISCLUSER 



IQ 

Unrecognizable data 
encountered routine. 

24 

Determines if the erroneous 
data is an unrecognized 
keyword or trailing data 


XEEZB815 

SCLNDSCN 


r 1 


J\ 

V 



Sets return code, indicating 
stop the parse. 


26 


Returns to XEEMB887 (the 
generalized parser). 


■KXEEZB815 

V 


SCLRET 
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ZEFRCSTP - Restart Codes Statement Processor 


STEP 27 


IEEZB815 


SCLUSER 


XEEZB815 

J— 

SCLUFUNC SCLDATA 


XEEZB815 


SCLCHAR SCLNDSCNj 


XEEZB815 


SCLSTRLN |—1 

XEEZB815 

|— 

SCLSTRNG |- ' 


CDSYES 
-> 


—> 
-J\ 
V 


27| Valid code found in input 
string routine 


28 


29 


Determines which parse 
statement passed control to 
this routine and how to 
process the information. 


If a good code was 
encountered by the parser? 
does the following. 


A. Indicates valid code was found 


B. Extracts the code from the input buffer. 

C. Translates the code from EBCDIC into 
internal hexadecimal. 


TRANSLATE 


D. Searches through the table of codes 
eligible for automatic restart for a 
match. 


FINDMATCH: 32 


E. Changes the table of codes eligible for 
automatic restart by either adding or 
deleting the code. 


CHNSRSTB: 36 


1301 otherwise this was not a 
valid code. 


31 


Returns to XEEMB887 (The 
generalized parser). 


-KXEEZB815 


SCLSTRLN 

SCLRET 


-KXEEZB815 

V 


SCLDATA 
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XEFRCSTP - Restart Codes Statement Processor 


STEP 32 




32 


IEFRSTB 


s 


RSTBIBMN RSTBSLEN 
RSTBCODE 


IEFRSTB 


RSTBIBM | 


IEFRSTB 

S" 

RSTBSLEN 


IEFRSTB 


RSTBUSR | 

1 

IEFRSTB 

_r~ 

RSTBLAST RSTBCODE 



FINDMATCH 


—> 
-K 
V 


V 


32 


33 


34 


Checks the table of restart 
codes for a code that 
matches the input code. 


If the input code is 
non-zero then, searches 
through the IBM supplied 
codes for a match. 


If a matching code was not 
found in the IBM supplied 
codes, then does the 
following: 


A. Searches through the user defined codes 
for a match. 


35] Returns to the subroutine 
caller 


FI 


\ / 


-K 


36 


CHNGRSTB 


IEFRSTB 


RSTBLAST RSTBCODE 




-»\ 

v 


36 


The restart codes table 
Customization Routine 


37 If a match was found in the 
— 1 table of eligible restart 
codes, does the following: 

A. If this invocation is to add a code for 
RESTART processing, issues a message 
indicating that the code already exists. 


MSGRTN 


B. Otherwise, this invocation is to delete 
a code for NORESTART processing, 

C. Deletes the existing code from the 
table. 


38 


Otherwise a match was not 
found in the table of 
eligible restart codes, so 
does the following: 


-KIEFRSTB 

Vl 
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IEFRCSTP - Restart Codes Statement Processor 


STEP 38A 


IEFRSTB 


IRSTBUSRN RSTBLAST 


A. If this invocation is to add a code for 
RESTART processing> checks if space is 
available to add an entry 

B. If no space in the user defined portion 
of the table> then obtains storage to 
contain the existing copy of the table 
of restart codes plus an additional 50 
e ntrie s. 

\i-./! XPANDTBL: 40 


IEFRSTB 


RSTBLAST 


IEFRSTB 


IRSTBCODE 


IEFRSTB 


RSTBLAST 


C. Adds the code to the table of restart 
codes. 

D. Otherwise this invocation is to delete a 
code for NORESTART processing> issues a 
message indicating that the code was not 
found in the table of restart codes. 


MEFRSTB 

-1 

RSTBLAST 

RSTBCODE 


MSGRTN 


- 

40 > 

- 1 / 

XPANDTBL 


Expands the table of codes 
eligible for automatic 
restart to hold an 
additional 50 entries 


IEFRSTB 

RSTBHEAD RSTBIBM 
RSTBUSR RSTBCODE 


Calculates the amount of 
storage necessary to contain 
the existing table plus 50 
additional entries. 


IEFRSTB 


RSTBSLEN 


Obtains storage for the 
existing table plus the 
additional 50 entries. 
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XEFRCSTP - Restart Codes Statement Processor 


STEP 50 


XEEZB815 


cdsno 50 invalid code found routine 


IEEZB815 


ISCLSTRLN 


51 Issues a message indicating 
1 — 1 that an invalid code was 
encountered. 


IEEZB815 



\| A. Sets return code, indicating stop the 
parse. 


52 Returns to IEEMB887 (The 
— 1 generalized parser). 


Invalid string found routine 


A. Issues a message indicating that an 
invalid code Mas encountered. 


MEEZB815 


SCLRET 


XEEZB815 


SCLNDSCN 


K B. Sets return code, indicating stop the 
\/ parse. 


54 Returns to IEEMB887 (The 
1 — 1 generalized parser). 


J \XEEZB815 

i/i-1 

SCLRET 
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IEFRCSTP - Restart Codes Statement Processor 


STEP 


ENDRTN 


55 


End of Statement Processing 
Routine 


56 


If an unrecognizable keyword 
was encountered* issues a 
message indicating that an 
unrecognizable keyword was 
encountered. 



MSGRTN 


57 


Otherwise* a valid keyword 
was found by parser* does 
the following: 


A. If the in-coming keyword list contains 
at least one error, bypasses checking 
the other indicators. Note: the parse of 
the input string did not finish at the 
end of the input record. Therefore, the 
remaining indicators may produce 
messages that could be misleading 


B. If no errors were encountered by the 
parse of the in-coming keyword list, 
checks the remainding indicators. 


C. If no valid codes were found by the 

parser, issues a message indicating that 
the keyword list is invalid. 



MSGRTN 


D. Otherwise, the keyword list contains 
only valid codes, if the keyword list 
ending delimiter was not encountered by 
the parser, issues a message indicating 
that the keyword list ending delimiter 
is missing. 


MSGRTN 


E. Otherwise, a right parenthesis was 
found. If extraneous data was 
encountered after the keyword list 
ending delimiter, then issues a message 
indicating that extraneous data was 
encountered. 


/«-K 

\|- 


MSGRTN 


55 
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IEFXBDYS - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Restart Dynamic SIOT Processing 
FUNCTION: 

This module processes SIOTs which were dynamically 
allocated before the checkpoint was issued. The 
checkpoint processing will generate type 4 DSDR records 
in the checkpoint dataset for dynamically allocated 
DDs. These records contain a copy of the SIOT 
which is needed to successfully recreate those DDs 
which were dynamically allocated. 

ENTRY POINT: IEFXBDYS 

PURPOSE: See Function 

LINKAGE: Call 

CALLERS: IEFXB609 


INPUT: 

The checkpoint restart workarea specifically the 
following fields: 


FIELD 

LENGTH/MASK 

DESCRIPTION 

CRHADDRP 

4 

Pointer to type 4 DSDR (SIOT) 

CRWACSIP 

4 

Pointer to current SIOT 

OUTPUT: 

FIELD 

LENGTH/MASK 

DESCRIPTION 


CRNAREAS 3 Reason code 


Updates the 

following fields in the current SIOT for 

SYSOUT 

SCTQUTNM 

8 

System output program name 

SCTGUTNO 

4 

Output forms number 

SCTQUTPN 

1 

Output class name 

SIOTOUTC 

1 

Number of copies 

SIOTDEST 

8 

Userid for routing output 

SIOTSSNM 

4 

Name of subsystem to process 
this dataset 

SIOTSSDS 

'80'X 

Subsystem dataset indicator 

SIOTHOLD 

•40'X 

Dataset is to be placed on 
hold queue 

For defered 

restarts only: 


SIOTTRKM 

4 

Have allocation indicate 
to subsystem that a new 
'dataset' is needed for this 
DD. 

SIOTDSNM 

4 

Have allocation indicate 
to subsystem that a new 


dataset name is needed for 
this DD. 


EXIT NORMAL: Return to IEFXB609 
EXIT ERROR: Return to IEFXB609 
ENTRY POINT: DYSRETRY 
PURPOSE: 

Performs clean up processing when an ABEND 
occurs in the process of merging dynamic 
SIOT information. 


Routine 
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ZEFXBDYS - NODULE DESCRIPTION (Continued) 

LINKAGE: SYNCH 
CALLERS: RTM 

INPUT: Estae Parameter List 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

IEFXBCRH - Checkpoint Restart Work Area 

- Current SIOT 

- type 4 DSDR for SIOT 

CONTROL BLOCKS: SIOT - Step Input/Output Table 
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XEFXBDYS - MODULE OPERATION 


XEFXBDYS merges dynamically allocated SIOTs. 

1. IEFXBDYS determines if the DSDR represents a SIOT 
for a catalog* a GDG 'all 1 request* or a multi-unit 
request. 

These SIOTs are "system generated" (created by 
Allocation)* Since these SIOT's will be recreated 
no further processing is done in this module 
for these cases. 

2. Ensures the ddname for the DSDR matches the 
ddname of the current SIOT (see step 4 if not). 

3. Determines if the DD represents a SIOT for a GDG 
all request. 

A. Removes the last nine characters from the 

dataset name so that allocation will recognize 
this as a GDG all request and recreate all 
the generations. 

4. If the ddname of the DSDR SIOT was found in the 
SWA structure* then tests for a SYSQUT dataset. 

A. If this DSDR represents a SYSQUT dataset then 
merges the sysout fields of this SIOT. 

B. If this DSDR represents a SYSOUT dataset and 
this is a deferred restart then requests a new 
dataset and dataset name via allocation from 
the subsystem. 

5. If the ddname of the DSDR SIOT did not match the 
current SWA SIOT then issues a reason code and 
return code. 

6. Return to caller 

RECOVERY OPERATION: 

If an abend occurs in this module* the recovery point 
in IEFXB609 receives control from RTM. The recovery 
routine specifies to RTM the retry address* DYSRETRY* 
in the checkpoint restart workarea. When DYSRETRY 
receives control from RTM* it does the following: 

1. Sets the return code to decimal 36 to indicate a 
checkpoint restart system error. 

2. Performs the necessary cleanup. 

3. Returns to the caller. 
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IEFXBDYS - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: iefxbdys 
DYSRETRY 


MESSAGES: None 


ABEND CODES: 

00B - Scheduler Restart Local Storage Error 
Associated Reason Codes: 

1 - A Scheduler Restart module failed to obtain 

enough storage from the preallocated storage 
area. 

2 - A Scheduler Restart module attempted to free 

an area outside the preallocated storage area. 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFXBDYS: 

EXIT NORMAL: 

(decimal) 

Register 15 = 0 - Request completed successfully 
Reason Code in CRWAREAS: 

CRWANQER (0) - no error 

EXIT ERROR: 

(decimal) 

Register 15 = 4 - Request processed unsuccessfully 
Reason Code in CRWAREAS: 

CRWADYNM (340) - Error in processing dynamically 
allocated SIOT (DSDR SIOT does 
not match current SIOT) 

ENTRY POINT DYSRETRY: 

EXIT ERROR: 


(decimal) 

Register 15 2 36 - Restart system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFXBDYS: 

Register 0 = Undefined 

Register 1 - Address of a one word parameter 

list which contains the address 
of the checkpoint restart workarea. 
Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT DYSRETRY: 

Register 0 = Undefined 

Register 1 = Address of the ESTAE parameter list 

Registers 2-14 = Undefined 
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XEFXBDYS - DIAGNOSTIC AIDS (Continued) 

Register 15 = Entry point address 

REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFXBDYS: 


Register 0-14 = Restored 
Register 15 = Return Code 

ENTRY POINT DYSRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 
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IEFXBDYS - Restart Dynamic SIOT Processing Routine 


STEP 01 


PARAMETERS 


CRMA 


IEFXB609 



IEFXBCRW 


CRWARTRY CRWALEVL 
CRWACSTO CRWABASE 
CRWASAVE 


J\ 

1 / 


IEFASI0T J-> 

IsiOTGDGA I 


IEFASI0T 


SCTDDNAM SIOTGALL 

i 

IEFXBCRW 

CRWACSIP 


XEFJFCBN 

JFCBDSNM 


IEFXBCRW 

CR_ERR CRRCGD6E| 

r 

j 

ZEFASZOT 

SCTSYSOU 


IEFXBCRW r 

CRWACSIP 



IEFASI0T 


SIOTDEST SIOTHOLD 
SIOTSSDS SCTOUTNM 
SCTOUTNO SCTOUTPN 
SIOTOUTC SIOTSSNM 


A 

1 / 


> 


J\ 

1/ 


This module processes SIOTs which were 
dynamically allocated before the 
checkpoint was issued. The checkpoint 
processing will generate type 4 DSDR 
records in the checkpoint dataset for 
dynamically allocated DDs. These records 
contain a copy of the SIOT which is needed 
to successfully recreate those DDs which 
were dynamically allocated. 


01 


Saves the callers module 
level, local storage 
address, base register, 
savearea address, and retry 
routine address in this 
modules local storage. 



Determine if this is NOT a 
system generated SIOT. 



Ensure the DSDR SIOT matches 
the current SWA SIOT. 


04 


Determine if this SIOT 
represents a GDG all request 


05 


Determine if this is a 
SYSOUT SIOT. 


A. For SYSOUT SIOTs copy the DSDR 
information into the SWA SIOT 

B. For a deferred restart requests a new 
dataset name and new dataset for the 
sysout dataset 


JMEFXBCRW 


CRWAFP D 
YS 

CRWARTRY 

CRWALEVL 

CRWACSTO 

CRWABASE 

CRWASAVE 


JMEFXBCRW 


f 1 

CRWARCDE 

CRWAREAS 

| t-KZEFJFCBN 

| f 

JFCBDSNM 


JMEFASIOT 


SIOTDEST 

SIOTHOLD 

SIOTSSDS 

SCTOUTNM 

SCTOUTNO 

SCTOUTPN 

SIOTOUTC 

SIOTSSNM 
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IEFXBDYS - Restart Dynamic SIOT Processing Routine 


STEP 05C 


IEFXBCRW 
CRWACSIP CRWADEFR 
IEFXBCRW 
IcR ERR CRRCDYNM 


J\ 

V 


IEFXBCRW 


CRWACSTO CRWABASE 

CRWASAVE 

CR_SYSERR 


RTM 


c> 

DYSRETRY 


J\ 

V 


C. For a deferred restart also does the 
following 


06 


If entering for retry 
processing Retry entry point 



Restores callers module 
level, local storage 
address, base register, 
savearea address and retry 
routine address in the 
Checkpoint restart workarea. 


08 


Returns to the caller 




J\IEFASIOT 


SIOTTRKM 

SIOTDSNM 


UMEFXBCRW 


CRWARCDE 

CRHAREAS 


J \IEFXBCRW 
V 


CRWARCDE 


J \IEFXBCRW 


CRWAFP D 
YS 

CRWARTRY 

CRWALEVL 

CRWACSTO 

CRWABASE 

CRWASAVE 
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ZEFXBGDG - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFXBGDG 
XBGDGRTY 

MESSAGES: None 

ABEND CODES: None 

WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFXBGDG: 

EXIT NORMAL: 

(decimal) 

Register 15 = 0 - Processed request. 

ENTRY POINT XBGDGRTY: 

EXIT ERROR: 

Register 15 = 36 (decimal) Restart System error 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT 

IEFXBGDG: 

Register 

0 

= Undefined 

Register 

1 

= Address of the input parameter 

Registers 

2-12 

= Undefined 

Register 

13 

= Address of 18-word save area 

Register 

14 

=■ Return address 

Register 

15 

= Entry point address 

ENTRY POINT 

XBGDGRTY: 

Register 

0 

= Undefined 

Register 

1 

= Address of the ESTAE parameter 

Registers 

2-13 

= Undefined 

Register 

14 

= Return address to RTM 

Register 

15 

= Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFXBGDG: 


Register 0-14 = Restored 
Register 15 = Return Code 

ENTRY POINT XBGDGRTY: 


Registers 0-14 = Restored 
Register 15 = Return code 
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ZEFXBGDG - Checkpoint Restart GDGNT Processing Routine 


STEP 01 


Checkpoint Restart control 
routine T 


PARAMETERS 


IEFXBGDG 
- K 

i-1/ 


This module merges Generation Data Group 
Name Tables (GDGNTs), from the Data Set 
Descriptor Records (DSDR) to SWA by either 
updating existing GDGNTs in SWA or 
assigning and writing new GDGNTs to SWA. 


ZEFXBCRW 


CRWARCDE 


ZEFZB429 


ZEFXBCRW 


CRWAGDGP CRWARCDE 


ZEFQMIDS 


SWGDGNID 


ZEFZB505 


SWBLKPTR SWVA 


01 Merge GDGNT DSDR records in 
— SWA by* 


A. If no SWA block version of a GDGNT is 
available to update, then assign and 
write a new SWA block for the GDGNT. 


KZEFZB50S 


SWBLKID 

SWLNGTH 


UEFXBCRW 


CRWAGDGP 

CRWAEPAP 

CRNASTYP 


\IEFAJCTB 


JCTGDGNT 


IEFXBCRW 


CRWARCDE 


ZEFXBDDR 


DSDR GDGNT 


ZEFZB429 


. GNTNEXTR 


ZEFZB429 


GNTNEXTR 


ZEFXBDDR 


DSDR GDGNT ID 


B. Update the SWA block version of the 
GDGNT with the DSDR version of a GDGNT. 


-> C. Issue a read request for the next GDGNT 
J \ record* if one exists. Otherwise, all 

]/ GDGNT records read and processing is 

complete. 


GNTNEXTP 

GNTNEXTR 


\IEFZB429 


GNTNEXTP 

GNTNEXTR 


UEFXBCRW 


CRWARDID 

CRWADTYP 


ZEFXBCRW 


CRWACSTO CRWABASE 
CRWASAVE 
CR SYSERR 


RTM 

o 

XBGDGRTY 
- K 


Return with return code in 
register 15• 


UEFXBCRW 


CRWARCDE 
CRWAFPJ3 
DG 

CRWARTRY 
CRWALEVL 
CRWACSTO 
CRWABASE 
.CRWASAVE 
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IEFXBRDC - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Restart Read Checkpoint Dataset Routine 
FUNCTION: 

This module perforins the reading of records from 
the checkpoint dataset and/or updating a pointer 
to point to the next record within the buffer. 

ENTRY POINT: IEFXBRDC 

PURPOSE: See Function 
LINKAGE: Call 

CALLERS: IEFXB609 and other restart processing routines 
INPUT: 

The checkpoint restart workarea specifically the 
following fields: 


FIELD 

LENGTH/MASK 

DESCRIPTION 

CRWADCBP 

4 

Pointer to the DCB for the 
checkpoint dataset 

CRWACKID 

16 

ID of the checkpoint header 
record to be read 

CRWARDID 

2 

ID of DSDR to be read 

CRWADTYP 

1 

Type of DSDR to be read 

CRWARANY 

X^O* 

Read any 

CRWARCHR 

X'40' 

Read Checkpoint Header Record 

CRWARSPC 

X'20' 

Read Specified DSDR type 

CRWADDRP 

4 

Pointer to current record 
in the buffer 

OUTPUT: 

FIELD 

LENGTH/MASK 

DESCRIPTION 

CRWARCDE 

4 

Return code 

CRHAREAS 

Z 

Reason code 

CRHADDRP 

4 

Virtual address of DSDR 
within buffer 


EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
ENTRY POINT: RDCRETRY 
PURPOSE: 

Performs clean up processing when an ABEND 
occurs in the process of reading the check¬ 
point dataset. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: Estae Parameter List 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

ENTRY POINT: SYNEXIT 


LY28-1745-1 <c) Copyright IBM Corp. 1987, 1989 


Method of Operation SbR-81 









IEFXBRDC - NODULE DESCRIPTION (Continued) 


"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


PURPOSE: 

Entered when an uncorrectable input/output 
error occurred while reading the checkpoint 
dataset. 

LINKAGE: Branch 

CALLERS: Code supporting the READ macro 
INPUT: Information in registers 0-1 
OUTPUT: None 

EXIT NORMAL: Return to caller 
EXIT ERROR: Return to caller 
EXTERNAL REFERENCES: 

ROUTINES: None 
DATA AREAS: 

IEFXBCRW - Checkpoint Restart Work Area 
- Checkpoint Dataset 

CONTROL BLOCKS: 

DCB - Data Control Block 

JCT - Job Control Table 

JSCB - Job Step Control Block 

PSA - Prefixed Save Area 

TCB - Task Control Block 
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IEFXBRDC - MODULE OPERATION 


IEFXBRDC reads the type of record specified as input 
from the checkpoint dataset. 

1. IEFXBRDC determines the type of record to be 
read from the checkpoint dataset. 

. 2. If the type of record to be read is a checkpoint 
header record> the checkpoint dataset will be 
read until a record with the matching checkpoint 
ID is found. 

3. If the type of record to be read is for a specific 
type of DSDR> the checkpoint dataset will be read 
or the pointer within the buffer will be incre¬ 
mented to the next record within tha buffer. If 
the DSDR type is not the same as that requested, 
return code 4 with reason code 300 will be set. 

4. If the type of record to be read is for any type 
of DSDR, the checkpoint dataset will be read or 
the pointer within the buffer will be incremented 
to the next record within the buffer. 

5. If while reading the checkpoint dataset a record 
of undetermined type is found> return code 4 with 
reason code 235 will be set. 

6. If while reading the checkpoint dataset an uncor- 
rectable input/output error occurs, return code 4 
with reason code 038 will be set. 

7. Return to caller 

RECOVERY OPERATION: 

If an abend occurs in this module, the recovery point 
in IEFXB609 receives control from RTM. The recovery 
routine specifies to RTM the retry address RDCRETRY 
in the checkpoint restart workarea. When RDCRETRY 
receives control from RTM, it does the following: 

1. Sets the return code to decimal 36 to indicate a 
checkpoint restart system error. 

2. Performs the necessary cleanup. 

3. Returns to the caller. 
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IEFXBRDC - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFXBRDC 
RDCRETRY 
SYNEXIT 


MESSAGES: None 


ABEND CODES: 

00B - Scheduler Restart Local Storage Error 
Associated Reason Codes: 

1 - A Scheduler Restart module failed to obtain 

enough storage from the preallocated storage 
area. 

2 - A Scheduler Restart module attempted to free 

an area outside the preallocated storage area. 


WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFXBRDC: 

EXIT NORMAL: 


(decimal) 

Register 15 = 0 - Request completed successfully 
Reason Code in CRWAREAS: 

CRWANOER (0) - no error 

EXIT ERROR: 


(decimal) 

Register 15 = 4 - Request processed unsuccessfully 
Reason Code in CRHAREAS: 

CRRCERIO (038) - Uncorrectable input/output error 
CRRCUTYP (235) - Undetermined type of checkpoint 
record was encountered 
CRRCEOF (237) - End of file reached 
CRRCNTYP (300) - DSDR type read is not type requested 

ENTRY POINT RDCRETRY: 

EXIT ERROR: 


(decimal) 

Register 15 = 36 - Restart system error 
ENTRY POINT SYNEXIT: 

EXIT NORMAL: 

Register 15 = 4 - Request processed unsuccessfully 
Reason Code in CRWAREAS: 

CRRCERIO (038) - Uncorrectable input/output error 
EXIT ERROR: 

Register 15 s 36 - Restart system error 


REGISTER CONTENTS ON ENTRY: 
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IEFXBRDC - DIAGNOSTIC AIDS (Continued) 


ENTRY POINT IEFXBRDC: 

Register 0 = Undefined 

Register 1 = Address of a one word parameter 

list which contains the address 
of the checkpoint restart workarea. 
Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT RDCRETRY: 

Register 0 = Undefined 

Register 1 = Address of the ESTAE parameter list 

Registers 2-14 = Undefined 

Register 15 » Entry point address 

ENTRY POINT SYNEXIT: 

Register 0-1 = Status information reflecting the 

type of error 

Registers 2-13 = Contents at the time the READ was 
issued 

Register 14 = Return address 

Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFXBRDC: 


Register 0-14 = Restored 
Register 15 = Return Code 

ENTRY POINT RDCRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 

ENTRY POINT SYNEXIT: 


Registers 0-14 = Same as at time of entry 
Register 15 = Return code 
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XEFXBRDC - Restart Read Checkpoint Dataset Routine 


STEP 01 


IEFXB609 and other restart 
processing routines r 




This module performs the reading of 
records from the checkpoint dataset and/or 
updating a pointer to point to the next 
record within the buffer. 


PARAMETERS 


IEFXBRDC 

-K 

i-1/ 


XEFXBCRW 

CRWA_IJSCB 
CRWARTRY CRWALEVL 
CRWACSTO CRWABASE 
CRWASAVE 


XEFXBCRW 


CRNARDID CRWARCHR 
CRWARSPC CRHARCDE 
CR NOERR 


XHJMCHR 


IHJIDENT 


XEFXBDDR 


Saves the caller's module 
level, local storage 
address, base register, 
savearea address and retry 
routine address in this 
module's local storage. 


Reads the next record on the 
checkpoint dataset or 
updates the pointer to the 
next record within the 
buffer. If the checkpoint 
header record was requested, 
the checkpoint dataset is 
read until the record for 
the checkpoint ID requested 
is found or end of file is 
reached. 



J \XEFXBCRW 

i / \ - 

CRWARTRY 

CRWALEVL 

CRWACSTO 

CRWABASE 

CRWASAVE 

J \XEZJSCB 


JSCBACT 


\XHADCB 


DCBEODA 

DCBSYNAD 


DSDR PPIR ID 


XEFXBDDR 


DSDR_HEADER 
DSDR_RECORD_ID 
dsdrIddnt 
DSDR_SIOT_JFCB 
DSDR DYNAMIC SIOT 
DSDR_JFCBX 
DSDRJSDGNT 
DSDR_SIOT_JFCB ID 
DSDR DDNT ID 
DSDR_JFCBX_ID 
DSDR - DYNAMIC_SIOT 
_ID 

DSDRJ3DGNT ID 
DSDRJEND_BLQCK_ID 


XEFXBCRW 


CRWABUFF 


XEFXBCRW 


CRWADCBP CRWADDRP 
CR ERR CRRCUTYP 


A. Increment pointer to next record within 
buffer by adding the length of the 
previous record read. 


MEFXBCRW 


CRHARCDE 

CRWAREAS 

CRWADDRP 
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ZEFXBRDC - Restart Read Checkpoint Dataset Routine 


STEP 02B 


IEFXBCRW 


CRWACKID CRWARCHR 
CRWARCDE 

CRMAFP SYN 
CRKABUFF CR NOERR 



IHJMCHR 

_i 


IHJCHKID 


IEFXBCRW 


CR ERR CRRCERIO 


CRRCEOF 


XEFXBDDR 

r - 


--> 

-J\ 

V 


DSDR_RECORD_ID 
DSDR SIOT_JFCB_ID 

dsdrIddnt^id 

DSDR_JFCBX_ID 

DSDR_DYNAMIC_SIOT 

_ID 

DSDR_GDGNT_ID 

DSDR_CIR_ID 

DSDR_PPIR_ID 



XEFXBCRW 


CRWARDID CRWARSPC 


IEFXBCRW 


CR ERR CRRCUTYP 


CRRCNTYP 



—> 
J\ 


IEFXBCRW 

CRWACSTO CRHABASE 
CRMASAVE 
CR SYSERR 


RTM 

c> 

RDCRETRY 
-K 


XEFXBCRW 


CRWA PPJSCB 




■J\ 

V 


B. If the request was for the read of a 
checkpoint header record> problem 
program image record or the end of the 
buffer has been reached, read a record 
from the checkpoint dataset. 

C. Determines if the record is valid. 


D. Determines if the record is the type 
requested. 


03 


04 


Restores the caller's module 
level* local storage 
address* base register* 
savearea address and retry 
routine address in the 
Checkpoint restart workarea. 


Returns to the caller. 


-KIEFXBCRW 

~i / i- 

CRWARCDE 

CRWAREAS 

CRWADDRP 


KIEFXBCRW 

Vl-1 

CRHARCOE 
CRWAREAS 


-KIEFXBCRW 

-i/ 


CRWARCDE 


KXEZJSCB 
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IEFXBSWA - MODULE DESCRIPTION 

DESCRIPTIVE NAME: Checkpoint Restart SWA Manager 

Interface Routine 


FUNCTION: 

This module performs the common SWA Manager 
READ/LOCATE, WRITE/LOCATE or ASSIGN/CONDITIONAL 
requests for the Checkpoint Restart control 
and processing routines. 

ENTRY POINT: IEFXBSWA 
PURPOSE: See Fmction 
LINKAGE: Call 
CALLERS: 

Checkpoint Restart control and processing 
routines 

INPUT: Register 1 points to a word pointing to CRWA 
OUTPUT: SWA Manager call made as per caller's request. 

EXIT NORMAL: Return to caller 
ENTRY POINT: XBSWARTY 
PURPOSE: 

To perform cleanup processing when an abend 
occurred during SWA Manager processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: Estae parameters 

OUTPUT: None 

EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: SWA Manager 

DATA AREAS: IEFXBCRW - Checkpoint Restart Work Area 
CONTROL BLOCKS: 

None 

CVT - Communications Vector Table.(U) 

JESCT - Job Entry Subsystem Communications Table. . (U) 

(C=create, M=modify, U=use> D=delete) 


SCR-S8 MVS/XA SLL: Sched Restart 


LY28-1745-1 (c) Copyright IBM Corp. 1987, 1989 




"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


IEFXBSWA - MODULE OPERATION 


The following steps are involved in the process 
of invoking the SWA Managers 


1. If the pointer for the External Parameter Area 
(EPA) in the Checkpoint Restart Work Area (CRMA) 
field CRWAEPAP is zero then return to the caller 
with a return code of 4 in register 15 and reason 
code 281 (decimal) in CRWAREAS. 

2. If the SVA field SWVA for a READ LOCATE or WRITE 
LOCATE is zero 9 then return to the caller with a 
return code of 4 in register 15 and reason code 
283 (decimal) in CRWAREAS. 

3. For request types READ LOCATE and WRITE LOCATE, 
check for multiple EPAs. Check each EPA for a 
valid SVA. For an invalid EPA, set the return 
code to 4 in register 15 and reason code 280 
(decimal) in CRWAREAS. 

4. Select the SWA Manager call type using the CRWA 
field CRWASTYP• For each call type invoke the SWA 
Manager. If the type is not recognized, then 
return with a return code of 4 in register 15 
and reason code 282 (decimal) in CRWAREAS. If the 
request type is ASSIGN and the return code from 
SWA Manager is non zero then return with a return 
code of 4 in register 15 and reason code 280 
(decimal) in CRWAREAS. 

5. Return to caller 
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XEFXBSWA - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFXBSWA 
XBSWARTY 


MESSAGES: None 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFXBSWA: 

EXIT NORMAL: 

(dec) 

Register 15 = 0 - Processed request* 


(dec) 

Register 15 4 - Request not processed. 

Reason codes with return code 4 

280 - Error while processing a SWA Manager request. 

281 - No EPA specified for a SWA Manager Request. 

282 - Invalid SWA Manager request type. 

283 - Invalid SVA specified in EPA. 

ENTRY POINT XBSWARTY: 

EXIT ERROR: 

Register 15 = 36 (decimal) Restart System error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFXBSWA: 

Register 0 = Undefined 

Register 1 = Address of the input parameter list 

Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 

Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT XBSWARTY: 

Register 0 = Undefined 

Register 1 = Address of the ESTAE parameter list 

Registers 2-13 = Undefined 

Register 14 = Return address to RTM 

Register 15 = Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFXBSWA: 


Register 0-14 = Restored 
Register 15 = Return Code 
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ENTRY POINT XBSWARTY: 


Registers 0-14 = Restored 
Register 15 = Return code 


(Continued) 
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XEFXBSWA - Checkpoint Restart SWA Manager Interface Routine STEP 01 


Checkpoint Restart control and 
processing routines 


PARAMETERS 


IEFXBSWA 

-K 


CRWA 


r* 


IEFXBCRW 


CRWAEPAP CR 
CRRCISMA 


ERR 


r' 


IEFXBCRW 

CRWASTYP CRMARCDEI 
CR NOERR 


ZEFZB505 


SWVA 


IEFXBCRW 


CRWAEPAP CR ERR 
CRRCSSWA 


IEFZB505 


SWCHNPTR 


IEFXBCRW 


CRWASTYP 


R15 


IEFXBCRW 


CR_ERR CRRCESWAi 


IEFXBCRW 


-K 

V 


—> 
-K 
V 


—> 
-K 
V 


-K 


This nodule performs the common SWA 
Manager READ/LOCATE, WRITE/LCCATE or 
ASSIGN/CONDITIONAL requests for the 
Checkpoint Restart control and processing 
routines. 


01 


If the CRWA EPA pointer is 
zero set the error reason 
code and return code in 
CRWA. 


02| Otherwise* process SWA 

Manager request by doing the 
following: 

Check if a valid EPA SVA is specified 
for READ/LOCATE or WRITE/LOCATE 
requests. If not valid set error reason 
code and return code. 


-KIEFXBCRW 
V 

CRWARCDE 
CRWAREAS 


B. Check for READ/LOCATE, WRITE/LOCATE or 
ASSIGN/CONDITIONAL request and invoke 
SWA Manager for these request types. 


-KIEFXBCRW 
Vi- 

CRWARCDE 

CRWAREAS 


C. If the request type is not for one of 


-KIEFXBCRW 

Vl- 

CRMARCDE 
CRMAREAS 


-KIEFXBCRW 


-1- > y 

the above requests > then set error 

- ]/ 


CR_ERR CRRCRSMA.-> 

reason code and return code in CRMA. 


CRMARCDE 



CRMAREAS 


SCR-92 


MVS/XA SLL: Sched Restart 


LY28-1745-1 Cc) Copyright IBM Corp. 1987, 1989 








“Restricted Materials of IBM” 
Licensed Materials - Property of IBM 


XEFXBSWA - Checkpoint Restart SWA Manager interface Routine STEP 03 
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IEFXBSJX - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Restart SIOT/JFCB and Extension 

Processing Routine 

FUNCTION: 

This module processes the SIOTs, JFCBs, and JFCB 
extensions corresponding to the DSDR read from the 
checkpoint dataset. 

ENTRY POINT: IEFXBSJX 

PURPOSE: See Function 

LINKAGE: Call 

CALLERS: IEFXB609 

INPUT: 

The checkpoint restart workarea and a function code 
indicating the type of processing to be performed. 

OUTPUT: 

If the function code was for SIOT/JFCB processing> 
the DSDR copies of the SIOT/JFCB and any JFCB 
extensions are merged to the SNA copies. 

If the function code was for the initialization of a 
new SIOT/JFCB, SWA blocks are assigned and initialized 
for the SIOT and JFCB. 

CRWACSIP - Address of new SIOT 

EXIT NORMAL: Return to IEFXB609 

EXIT ERROR: Return to IEFXB609 

ENTRY POINT: SJXRETRY 

PURPOSE: 

Performs clean up processing when an ABEND 
occurs in the process of reading the check¬ 
point dataset. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: Estae Parameter List 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

IEFXBMRG - Restart Generalized Merge Routine 
IEFXBRDC - Restart Read Checkpoint Dataset Routine 
IEFXBSWA - Restart SWA Manager Routine 
IEFGB4DC - Dataset Reservation/Release 
IEFEB4UV - Enhanced Unit Verification Interface 

CONTROL BLOCKS: 

ATCA - Allocation Communication Area 
CVT - Communications Vector Table 
JCT - Job Control Table 
JFCB - Job File Control Block 
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ZEFXBSJX - MODULE DESCRIPTION (Continued) 


JFCBE - Job File Control Block Extension for 3800 
JFCBX - Job File Control Block Extension 
SCT - Step Control Table 
SIOT - Step Input/Output Table 
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ZEFXBSJX - MODULE OPERATION 


IEFXBSJX processes the SIOTs> JFCBs, and JFCB extensions 
corresponding to the DSDR on the checkpoint dataset as 
follows: 

1. If the type of processing requested is for SIOT/JFCB 
processing, this routine does the following: 

a. The SIOT fields in the DSDR are merged to the 
SIOT in SWA, 

b. The DSDR copy of the JFCB is merged to the SWA 
version of the JFCB by invoking routine IEFXBMRG. 
After the merge by template, several fields in 
the JFCB are merged separately. 

c. If the JFCB indicates that any JFCBEs or JFCBXs 
exist for this SIOT/JFCB, the DSDR copy of the 
SWA block is read from the checkpoint dataset and 
IEFXBMRG is invoked to merge the DSDR copy of the 
JFCB extension to the SWA copy. 

2. If the type of processing requested is for the ini¬ 
tialization of a new SIOT/JFCB, this routine does 
the following: 

a. A new SWA block will be assigned for the SIOT 
and JFCB. 

b. The fields which would not be initialized by 
normal SIOT/JFCB merge processing are initialized. 

c. The newly assigned and initialized SIOT and JFCB 
are then written to SWA. 

3. Return to caller 

RECOVERY OPERATION: 

If an abend occurs in this module, the recovery point 
in IEFXB609 receives control from RTM. The recovery 
routine specifies to RTM the retry address SJXRETRY 
in the checkpoint restart workarea. When SJXRETRY 
receives control from RTM, it does the following: 

1. Sets the return code to decimal 36 to indicate a 
checkpoint restart system error. 

2. Performs the necessary cleanup. 

3. Returns to the caller. 
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IEFXBSJX - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFXBSJX 
SJXRETRY 


MESSAGES: None 


ABEND CODES: 

00B - Scheduler Restart Local Storage Error 
Associated Reason Codes: 

1 - A Scheduler Restart nodule failed to obtain 

enough storage from the preallocated storage 
area. 

2 - A Scheduler Restart module attempted to free 

an area outside the preallocated storage area. 


WAIT STATE CODES: None 

RETURN CODES: 

ENTRY POINT IEFXBSJX: 

EXIT NORMAL: 


(decimal) 

Register 15 = 0 - Request completed successfully 
Reason Code in CRWAREAS: 

CRRCNOER (0) - no error 

EXIT ERROR: 


(decimal) 


Register 15 = 4 - Request processed unsuccessfully 
Reason Code in CRMAREAS: 

CRRCDUMY (031) - SWA SIOT indicates that the DD is 


CRRCEVIO (239) 
CRRCXSJX (320) 

CRRCUVLU (321) 

CRRCXMRG (420) 


not a dummy and DSOR indicates 
the dataset is a dummy 
Deferred restart and VIO dataset 
Modules does not support the 
function requested 
Error return from IEFEB4UV for a 
request to convert a device type 
to a look-up value. 

Error occured while processing a 
merge request. 


ENTRY POINT SJXRETRY: 


EXIT ERROR: 

Register 15 = 36 - Restart system error 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFXBSJX: 

Register 0 = Undefined 

Register 1 = Address of a two word parameter 

list which contains the address 
of the checkpoint restart workarea 
and the address of the function code. 

Registers 2-12 = Undefined 

Register 13 = Address of 18-word save area 
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ZEFXBSJX - DIAGNOSTIC AIDS (Continued) 


Register 14 = Return address 

Register 15 = Entry point address 

ENTRY POINT SJXRETRY: 

Register 0 = Undefined 

Register 1 = Address of the ESTAE parameter list 

Registers 2-14 = Undefined 

Register 15 s Entry point address 


REGISTER CONTENTS ON EXIT: 

ENTRY POINT IEFXBSJX: 


Register 0-14 = Restored 
Register 15 = Return Code 

ENTRY POINT SJXRETRY: 


Registers 0-14 = Restored 
Register 15 = Return code 
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IEFXBSJX - Restart SXOT/JFCB and Extension Processing Routine 


STEP 01 


PARAMETERS 

CRWA 

FUNCTION CODE 


IEFXB609 

IEFXBSJX 

-»\ 

i-1/ 


This module processes the SIOTs, JFCBs, 
and JFCB extensions corresponding to the 
DSDR read from the checkpoint dataset* 


IEFXBCRW 


CRWARTRY CRWALEVL 
ICRWACSTO CRWABASE 
ICRWASAVE 


PARAMETERS 


FUNCTION CODE 


IEFXBCRW 


CRHARCDE CR_N0ERR 


IEFXBCRW 


CR ERR CRRCXSJX 


Saves the caller's module 
level, local storage 
address, base register, 
savearea address and retry 
routine address in this 
module's local storage. 


KIEFXBCRW 


-> 02 Determines the type of 
1 - 1 processing requested. 

A* If tha type of processing requested is 
for merging of the SIOT and JFCB, calls 
Merge_SIOT and Merge_JFCB. 

B. Performs merging of the SIOT 

/[ — j m- 

\,-, / MERGE_SIOT: 06 


-> C* Performs merging of the JFCB 


MERGE JFCB: 11 


D. If the type and processing requested is 
for initial- zation of a new SIOT and 
JFCB, calls Initial_New_ SI0T.JFCB to 
assign and initialize the SWA blocks* 

E. I nitia lizes a new SIOT/JFCB 

\|-1/ INITIAL NEW SIOT JFCB: 05 



CRWARCDE 
CRWAREAS, 
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IEFXBSJX - Restart SXOT/JFCB and Extension Processing Routine 


STEP 03 


Kin 

c> 


IEFXBCRW 


CRMACSTO CRWABASE 

CRMASAVE 

CR_SYSERR 


SJXRETRY 
- K 




Restores the caller's module 
levels local storage 
address* base register* 
savearea address and retry 
routine address in the 
Checkpoint restart workarea. 


04 Returns to the caller. 
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05 Assigns and Initializes a 
— 1 new SIOT/JFCB pair 


>| A. Initialize the EPA for the SIOT and JFCB 
to be assigned and call IEFXBSHA to 
invoke SWA Manager. 

B. Assigns the SIOT and JFCB 

/I-!\-——- 


J \IEFXBCRW 

l/f- 

CRWARCDE 


MEFXBCRW 


CRWAFP^S 

JX 

CRWARTRY 

CRWALEVL 

CRWACSTO 

CRWABASE 

CRWASAVE 


MEFXBCRW 
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XEFXBSJX - Restart SXOTAJFCB and Extension Processing Routine 


STEP 06 


> 06 Merges the DSDR SXOT to the 


MERGE SIOT 


XEFXBDDR 


SIOT in SWA 


DSDR JFCB 


XEFASXOT 


ISJFCBPTR 


07 Merges the information from 
— 1 the DSDR SIOT to the SWA 
SIOT. 


IEFXBDDR 


DSDR SCTSDISP 
DSDR SIOTALTD 


IEFXBDDR 


DSDR DSAB OPEN 


K 08 Merges disposition and 
A l — J alternate disposition of the 
dataset. 


IEFASIOT 


SCTSYSIN SCTSYSOU 


IEFXBCRW 


ICRWAAUTO 


IEFXBDDR 

DSDR_DSABDCAT 

IEFASIOT 

SIOTUNAF SIOVAMDS 
SIOTSSDS S3400DSP 
SCTUNAFF 


IEFASIOT 




J \IEFASI0T 


SCTSDISP 

SIOTALTD 


09 If the dataset was open at 
— 1 checkpoint# sets the open at 
checkpoint bit in the SIOT. 


) Determines if the SIOT is 
A for a sysin or sysout 

datasets. Sysin and sysout 
datasets are allocated by 
JES and do not require the 
merging that other types of 
datasets require. 

For sysout datasets, the dataset is 
marked as old for automatic restarts and 
new for deferred restarts 


B. For all other types of datasets the 
following merging takes place. 


Sets the concatenated DD indicator as in 
the DSDR. 


D. For non-VIO and non-subsystem dataset 
resolves any unit affinity requests 
invalidated by DDNT processing by 
determining the correct unit type. 

E« Determines the type of unit specified in 
the restart JCL and determines if it 
requires updating. 

F. For tape devices that are capable of 
writing at various densities> determines 
the type of device and the density at 
which the data was written. If the 
device specified on the restart could 
cause compat- iblity problems with the 
density, the unit type is merged. 
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IEFXBSJX - Restart SIOT/JFCB and Extension Processing Routine 
IEFZB4UV i- 


FUNCFLGS UNITTAB 
ATRIBUTS ATRLENC 


n 


IEFASIOT 


SCTUTYPE 

r- 


IEFZB4UV 


GENDEVft 


IEFXBCRW 


CRWARCDE CR NOERR 


IEFXBDDR 


DSDR SCTSBYT3 


IEFASXOT 


SIOVAMDS SCTVOLAF 
SCTVREF SCTUTYPE 


XEFJFCBN 


JFCBVOLS 


1EFZB4UV 


FUNCFLGS UNITTAB 


XEFXBDDR 


DSDR UNIT TYPE 


IEFZB4UV 


UNLUVDEV 


_n 


IEFXBCRW 


CR ERR CRRCUVLUr 


-»\ 

V 


—> 
V 


—> 


V 


-K 

V 


STEP 106 
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XEFXBSJX - Restart SXOT/JFCB and Extension Processing Routine 


STEP 10K 


XEFXBCRW 


CRWADEFR CRWAAUTO 
CRWARCDE CR_NOERR 


XEFASXOT 


SIOTPRIV SIOTPASS 
SIOTKEEP SIOTDLET 
SIOTCTLG SIOTUNCT 
SIOTGDSN SCTSNEW 
SIOUCBAD 


XEFXBDDR 


DSDRJJTYPE_TAPE 


XEFJFCBN 


JFCORGAM JFCBVOLS 
JFCVRDS 


XEFJFCBN 


JFCBNVOL 


K. Resolves any new to old dataset 

conversions and sets the volume count in 
the SIOT from the DSDR as required. 


KIEFASIOT 


SCTVOLCT 

SIOTDLET 

SCTSNEW 

SCTSOLD 

SIOTNPRV 


MEFJFCBN 


JFCBNVOL 

JFCAVOLS 


XEFASXOT 


SCTSGDGS 


XEFJFCBN 


JFCGDG JFCENT 


For datasets which are non-GDG singles 
and base GDGs, resolves the volume count 
and number of volumes in both the SIOT 
and JFCB. 


MEFJFCBN 


JFCCAT 

JFCBNVOL 

JFCAVOLS 

JFCBVLCT 


\XEFASXOT 


SCTVOLCT 

SIOTVLCT 


MERGE JFCB 


Merges the DSDR JFCB to the 
JFCB in SWA 


Determines if the DSDR JFCB 
is for a JFCB which requires 
merging* 


If the SIOT indicates that 
this is a dummy dataset, the 
JFCB will not be merged* 


XEFASXOT 


SCTDUMMY SCTSGDGS 


XEFJFCBN 


Xf the SIOT indicates that 
this is a GDG single or the 
DSDR indicates that this is 
not a GDG all, the JFCB will 
be merged. 


JFCBDSNM JFCGDG 
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XEFXBSJX - Restart SIOT/'JFCB and Extension Processing Routine 
IEFXBCRW r - 


CRWAAUTO 

5 

XEFJFCBN 

_i 

JFCVRDS 



IEFXBCRW 


CRMADEFR CRWAAUTO 


XEFAJCTB 


JCTSYSCK 


IEFASIOT 


SCTSYSIN SCTSYSOU 


XEFJFCBN 


JFCBDSNM 


XEFJFCBN 


JFCBSQTY 


J - *" 


XEFJFCBN 


JFCSHARE 


T 


IEFJFCBN 


XEFJFCBN 


JFCORGAM JFCBVOLS 


IEFASXOT 


SIOTGDSN 


XEFJFCBN 


JFCFCBID JFCBUFRQ 
JFCBGNCP JFCBUFL 


—> 
J\ 

-l/ 


-K 

-1/ 


—> 
-*\ 


A. If -this is a deferred restart and this 
JFCB is for a VIO dataset, the return 
code and reason code are set because the 
dataset cannot be recreated. 

B. Calls IEFXBMRG to perform the general 
JFCB merge by template. 

C. Merge the DSDR JFCB to the SWA JFCB 

/■- 1 \|- 


IEFXBMRG 


JFCBPTR, ADDR(JFCB_TEMPLATE), 
DSDR_JFCBPTR, 176, 
MRGJ3VERLAY 


D. Merges the dataset name for all JFCBs 
except JFCBs for sysin or sysout 
datasets on a deferred or automatic 
after deferred restart. 


E. Xf the secondary space amount in the 
DSDR is greater than that specified in 
the JCL, the secondary space amount is 
merged. 

F. Determines the type of enqueue required 
for this dataset. 


G. Determines if deferred mounting is 


H. Calls Merge_Volsers to merge the volume 
serials in the JFCB and JFCBXs for all 
datasets except VSAM and datasets which 
did not specify specific volume serials. 


STEP 14A 


J \XEFJFCBN 

V. 

JFCBDSNM 
JFCBNVOL 


J \IEFJFCBN 

JFCBSQTY 


J \IEFJFCBN 


JFCDEFER JFCBNVOL 

: 

required for this dataset. 


|‘ |JFCDEFER 

XEFASXOT 

_i 



UUEFASIOT 

SCTNMBUT 



SCTDEFER 


J\IEFJFCBN 
n/ 

JFCCAT 
JFCFCBID 
JFCBUFRQ 
JFCBGNCP 
JFCBUFL 
JFCBNVOL 
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XEFXBSJX - Restart SIOT/JFCB and Extension Processing Routine 


STEP 14X 


XEFJFCBN 


IJFCBEXTP 


-> I. Calls Merge_JFCBE if JFCBEs exist. 

J. Merge the DSDR JFCBEs to the SWA JFCBEs 

/ l -* N |- 1 

\l-1/ MERGE JFCBE: IS 


KIEFJFCBN 

1 I JFCBEXTP I 


IEFXBCRW 


CRMARCDE CR_NOERR 


XEFASXOT 


SIOTSSDS 


XEFJFCBN 


JFCVRDS 


XEFJFCBN 


JFCBDSNM 


K. Merge the volume serials specified in 
the DSDR to SWA 

/I-1\.- 

\i- 1 / MERGE VOLSERS 


-> L. Calls Update_DSENQ to add the dataset 

name to the DSENQ table for all datasets 
except subsystem managed and VIO 
datasets. 


IEFXBCRW 


CRMARCDE CR NOERR 


XEFJFCBN 


JFCBEXTP JFCBEXAD 


XEFJFCBX 


JFCBXNAM 


->| M. If an alias is specified for this 

dataset, calls Update_DSENQ to add the 
alias dataset name to the DSENQ table. 

N. Adds the dataset name to the dataset 
enqueue table with the type of enqueue 
saved earlier 

. 1 « _ 


UPDATE_DSENQ 


DSENQ_ADD> ENQJJSN, ENQJTYPE 


IEFXBCRW 


MEFXBCRW 


CR_ERR CRRCDUMY 
CRRCEVXO CRRCXMRG 


CRWARCDE 

CRMAREAS 
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XEFXBSJX - Restart SIOT/JFCB and Extension Processing Routine 


STEP 15 


IEFJFCBN 


15 >15 Merges the DSDR JFCBEs to 

■-,/ — 1 the JFCBEs in SWA 

MERGE_JFCBE 

.-K 



^JFCBEXTR 
IEFXBCRW 
CRNARCDE CR_NOERR 
IEFXBCRW 


IEFXBCRW 


CRWASTYP 


IEFQMIDS 


SWJFCEID 


16 Reads the JFCBEs from the 
l — 1 checkpoint dataset and 
merges them to the SWA 
JFCBES. 

A. Reads a JFCBE from the checkpoint 
dataset 

\i-1 / 1EFXBRDC 


*\| B. If a SWA JFCBE exists, the SWA JFCBE is 
used. 



KIEFXBCRW 

-1 

CRHAEPAP 

CRHARDID 
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XEFXBSJX - Restart SXOT/JFCB and Extension Processing Routine STEP 16F 


XEFXBCRW 
IcRWARCDE CR.NOERR 


1 / 


XEFXBCRW 

CRWASTYP 

XEFZB505 

ISWVA 



XEFQMIDS 

IsWJFCEID 


XEFJFCBN r -> 


JFCBEXAD 

B 

XEFXBCRW 

■ 

CRMARCDE CR_NOERR 

B 

XEFZB505 

l 

SWBLKPTR SWVA | 

1 

XEFXBDDR 

J 

DSDR_JFCBX | 

—1 

XEFJFCBE 

1 

JFCBEXTR |- 



MERGE.JFCBX 

XEFJFCBN ,-'N 


JFCBEXAD 

_n 

XEFJFCBX 

JFCBXTTR 

_n 

XEFXBDDR 

DSDR_JFCBX_ID 

n 

XEFXBCRW 

CRMADTYP 

i — 


17 


Merges the DSDR JFCBXs to 
the JFCBXs in SWA 


JsXEFXBCRW 


CRWARDID 

CRMADTYP 

CRWARSPC 


XEFXBCRW 


CRMARCDE CR.NOERR 


18 


Reads the JFCBXs from the 
checkpoint dataset and 
merges them to the SWA 
JFCBXS. 
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XEFXBSJX - Restart SIOT/JFCB and Extension Processing Routine 


STEP 18A 


Idsdr jfcbx 


A. Reads a JFCBX from the checkpoint 
dataset 

/'-K.- 

\i-,/ IEFXBRDC 


IEFXBCRW 


CRWARCDE CR.NOERR 


IEFXBDDR 


B. If a SWA JFCBX exists, the SWA JFCBX is 
used. 


IEFJFCBX 


IEFXBCRW 


CRWASTYP 


XEFQMIDS 


.SWJFCXIO 


IEFXBCRW 


CR ERR CRRCXMRGr 


-> C. If a SWA JFCBX does not exist, a JFCBX 
is assigned by calling the restart SWA 
Manager interface routine. 


KIEFXBCRW 
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XEFXBUSJ - MODULE DESCRIPTION 


DESCRIPTIVE NAME: Restart Unmatched SIOT/JFCB processing 

Routine. 

FUNCTION: 

This module processes SIOT/JFCB pairs in SNA that 
did not have a corresponding checkpoint DSDR record. 

These DDs may represent the following: 

For deferred restarts - DDs added to the JCL 

For automatic restarts - 

System generated DD's (ie. GDG 'all 1 cases or 
private catalogs* these are not merged by 
checkpoint/restart: they will be recreated 
by allocation.) 

DD's dynamically allocated (created and possibly 
updated) after the checkpoint was taken. 

(See following description) 

The SIOT/JFCB in SWA is altered by three different 
methods for automatic restarts: 

1. Interpreter recreation of the original JCL 

2. Journal Merge (IEFXB601) may update or 
add DDs in SWA. 

3. Checkpoint/restart will recreate the 
DDs as they looked at the time of the 
checkpoint ('un-does' some of journal merge 
processing) 

Due to the way the processing is done* dynamic allocations 
which follow the checkpoint will be placed back into 
SWA by Journal Merge (IEFXB601). These DDs represent 
resources that were "allocated" to the job by code 
following the checkpoint. Since the job will be 
restarted at the instruction following the checkpoint 
these resources must be freed in order to place the 
job into the same state as it was in at the time of the 
checkpoint. 

In order to free these resources a call is made to 
the allocation routine IEFAB4A0 - common unallocation 
to perform disposition processing. This routine will 
scratch/uncatalog these resources so that they may 
be reused. 

ENTRY POINT: XEFXBUSJ 
PURPOSE: See Function 
LINKAGE: Call 
CALLERS: IEFXB609 
INPUT: 

The checkpoint restart workarea* specifically the 
following fields: 

FIELD LENGTH/MASK DESCRIPTION 


CRWACSIP 4 Pointer to current SIOT 

(last matched SIOT at entry) 
CRWALSIP 4 Pointer to last SIOT in 

SIOT chain 

OUTPUT: 

FIELD LENGTH/MASK DESCRIPTION 


CRWARCDE 4 Return code 
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XEFXBUSJ - MODULE DESCRIPTION (Continued) 


CRWAREAS 3 Reason code 

Alters the SIOT/JFCB chain in SNA to include or exclude 
the leftover SIOTs. 

Frees unneeded resources (ie. uncatalogs and scratches 
the unneeded datasets via IEFAB4A0) 

EXIT NORMALS Return to IEFXB609 

EXIT ERROR: Return to IEFXB609 

ENTRY POINT: USJRETRY 

PURPOSE: 

Performs clean up processing when an ABEND 
occurs in the process of resolving unmatched 
SIOTs. 

LINKAGES SYNCH 
CALLERS: RTM 

INPUT: Estae Parameter List 
OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to caller 

EXTERNAL REFERENCES: 

ROUTINES: 

IEFAB4A0 - Common unallocation for disposition 
processing 

DATA AREAS; IEFXBCRH - Checkpoint Restart Work Area 
CONTROL BLOCKS: 

JSCB - Job Step Control Block 
TCB - Task Control Block 

PSA - Prefixed Save Area 

SCT - Step Control Table 

SIOT - Step Input/Output Table 
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XEFXBUSJ - MODULE OPERATION 


IEFXBUSJ processes unmatched SIOT/JFCB pairs 

1. IEFXBUSJ determines if this is a deferred restart. 
For a deferred restart the CD's left are treated 
as being added to the JCL. The following is 
done: 

- Update the last SIOT pointer to point to the 
last SIOT. 

2. For an automatic restart, loop through the unmatched 
SIOT's and do the following: 

- If this DO represents a new dataset or a 
converted from new dataset and it was dynamically 
allocated and the dataset is not a subsystem 
dataset then does the following: 

- Fill in the parameter list to IEFAB4A0 common 
unallocation and call this routins. 

- Check the return code from common un¬ 
allocation and set the reason code. 

3. Return to caller 

RECOVERY OPERATION: 

If an abend occurs in this module* the recovery point 
in IEFXB609 receives control from RTM. The recovery 
routine specifies to RTM the retry address USJRETRY 
in the checkpoint restart workarea. When USJRETRY 
receives control from RTM* it does the following: 

1. Sets the return code to decimal 36 to indicate a 
checkpoint restart system error. 

2. Performs the necessary cleanup. 

3. Returns to the caller. 


SCR-112 MVS/XA SLL: Sched Restart 


LY28-1745-1 <c) Copyright IBM Corp. 1987, 1989 



"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


IEFXBUSJ - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFXBUSJ 
USJRETRY 


MESSAGES: None 


ABEND CODES: 

00B - Scheduler Restart Local Storage Error 
Associated Reason Codes: 

1 - A Scheduler Restart module failed to obtain 

enough storage from the preallocated storage 
area. 

2 - A Scheduler Restart module attempted to free 

an area outside the preallocated storage area. 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFXBUSJ: 

EXIT NORMAL: 

(decimal) 

Register 15 = 0 - Request completed successfully 
Reason Code in CRMAREAS: 

CRRCNOER (0) - no error 

EXIT ERROR: 

(decimal) 

Register 15 = 4 - Request processed unsuccessfully 
Reason Code in CRMAREAS: 

CRRCXUSJ (380) - Error in processing a SIOT/JFCB 
that had no matching DSDR 

ENTRY POINT USJRETRY: 

EXIT ERROR: 


(decimal) 

Register 15 = 36 - Restart system error 


REGISTER CONTENTS ON ENTRY: 


ENTRY POINT 

IEFXBUSJ: 

Register 

0 

= Undefined 

Register 

1 

= Address of a one word parameter 
list which contains the address 
of the checkpoint restart workarea. 

Registers 

2-12 

= Undefined 

Register 

13 

= Address of 18-word save area 

Register 

14 

= Return address 

Register 

15 

= Entry point address 

ENTRY POINT 

USJRETRY: 

Register 

0 

= Undefined 

Register 

1 

= Address of the ESTAE parameter list 

Registers 

2-14 

= Undefined 

Register 

15 

= Entry point address 
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XEFXBUSJ - DIAGNOSTIC AIDS (Continued) 

REGISTER CONTENTS ON EXITS 

ENTRY POINT IEFXBUSJ: 

Register 0-14 = Restored 
Register IB = Return Code 

ENTRY POINT USJRETRY: 

Registers 0-14 = Restored 
Register 15 = Return code 
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ZEFXBUSJ - Restart Unmatched SIOT/JFCB processing Routine. 


PARAMETERS 


CRWA 


IEFXB609 



IEFXBCRW 


CRWARTRY CRWALEVL 
CRWACSTO CRHABASE 
CRWASAVE 


J\ 

1 / 


IEFXBCRW 

ICRWACSIP CRWALSIP 


IEFXBCRW 

CRWADEFR 

IEFXBCRW 

CRWALSIP 




J\ 

V 


This module processes SIOT/JFCB pairs in 
SWA that did not have a corresponding 
checkpoint DSDR record. These DOs may 
represent the following: 

For deferred restarts - DDs added to tho 
JCL 

For automatic restarts - System generated 
DD's (ie. GDG 'all 1 cases or private 
catalogs> these are not merged by 
checkpoint/restart: they will be recreated 
by allocation.) DD's dynamically allocated 
(created and possibly updated) after the 
checkpoint was taken. (See following 
description) 

The SIOT/JFCB in SWA is altered by three 
different methods for automatic restarts: 

1. Interpreter recreation of the original 
JCL 2. Journal Merge (IEFXB601) may update 
or add DDs in SWA. 3. Checkpoint/restart 
will recreate the DDs as they looked at 
the time of the checkpoint ( 'un-does' some 
of journal merge processing) 

Due to the way the processing is done* 
dynamic allocations which follow the 
checkpoint will be placed back info SWA by 
Journal Merge (IEFXB601). These DDs 
represent resources that were "allocated" 
to the job by code following the 
checkpoint. Since the job will be 
restarted at the instruction following the 
checkpoint these resources must be freed 
in order to place the job into the same 
state as it was in at the time of the 
checkpoint. In order to free these 
resources a call is made to the allocation 
routine IEFAB4A0 - common unallocation to 
perform disposition processing. This 
routine will scratch/uncatalog these 
resources so that they may be reused. 


01 


Saves the callers module 
level, local storage 
address, base register, 
savearea address, and retry 
routine address in this 
modules local storage. 



Determine if there are any 
unmatched SIOTs. 


03 


For a deferred restart, 
keeps the unmatched SIOTs on 
the SIOT chain by updating 
the current SIOT pointer. 


STEP 01 


■KIEFXBCRW 


CRWAFP_U 

SJ 

CRWARTRY 

CRWALEVL 

CRWACSTO 

CRWABASE 

CRWASAVE 


JMEFXBCRW 


1 / 


CRWACSIP 
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XEFXBUSJ - Restart Unmatched SXOT/JFCB processing Routine. STEP 04 


XEFXBCRW 

CRWACSIP 

XEFXBCRW 

CRNAFSIP 

IEFASI0T 

SIOTNPTR 




XEFZB439 ,- 1\ 

_1 / 

CMUNFMAP CMUNRB | 

H 

r --> 

XEFXBCRW 

CRWARCDE CR.NOERR 


a 

* 

K 

XEFASXOT 


SIOTNPTR | 


i 

XEFASXOT 

J _ K 

SIOVAMDS SIOTSSDS 


i -1 ' 


SIOTDYAL SCTSNHN 
SIOTCNEW 


XEFASIOT 


SIOTDSKA 


XEFXBCRW 


CRHACSIP 
CRWA_IJSCB 
CRMA PPJSCB 
CR ERR CRRCXUSJ 



For automatic restarts, the 
unmatched SXOTs will be 
removed from the chain. 


A. Set up the parameter list IEFZB439* for 
common unallocation. 


B. Loop through the unmatched SIOTs until 
the end is reached or a bad return code 
from unallocation 


C. Determine if this dataset is eligible 
for disposition processing. 


05 


Retry point for this 
routine, the active JSCB 
will be reset to the problem 
program by IEFXB609S 
recovery routine. 


J \IEFZB439 
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ZEFXBUSJ - Restart Unmatched SIOT/JFCB processing Routine* STEP 06 


IEFXBCRW 


CRWACSTO CRWABASE 

CRWASAVE 

CR_SYSERR 


RTM 

c> 

USJRETRY 

- 1 \ 

- 1 / 



If entering for retry 
processing Retry entry point 



Restores callers module 
level, local storage 
address, base register, 
savearea address and retry 
routine address in the 
Checkpoint restart workarea. 


08 


Returns to the caller 


tn 


JMEFXBCRW 

i / |-[ 

CRWARCDE 


JMEFXBCRW 


CRWAFP_U 

SJ 

CRWARTRY 

CRWALEVL 

CRWACSTO 

CRWABASE 

CRWASAVE 
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IEFXB609 - MODULE DESCRIPTION 


DESCRIPTIVE NAME: checkpoint Restart Dataset Descriptor 

Record Processor Control Routine 

FUNCTION: 

This module performs common initial processing 
for the Checkpoint Restart processing routines* 
controls the processing of SWA information in the 
DSDR records on the checkpoint dataset to recreate 
the SWA environment at the time of a checkpoint 
for a restarting job and performs common cleanup 
processing. 

ENTRY POINT: IEFXB609 

PURPOSE: See Function 
LINKAGE: Call 
CALLERS: IEFIB605 

INPUT: LCTPTR = address of LCT (Linkage Control Table) 

OUTPUT: 

SWA block environment reflects the environment at 
the time of the checkpoint. 

EXIT NORMAL: Return to IEFIB605 

EXIT ERROR: Return to IEFIB605 

ENTRY POINT: RECOVERY 

PURPOSE: 

To recover from an error that caused the exit 
to RTM. 

LINKAGE: SYNCH 
CALLERS: RTM 
INPUT: 

Estae parameters 

System diagnostic work area (SDWA) 

OUTPUT: SVC dump and a record written in LOGREC data set. 

EXIT NORMAL: 

Return to RTM specifying the retry 
address stored in the Checkpoint 
Restart workarea. 

EXIT ERROR: 

Percolate to the caller's recovery 
routine if the abend did not occur while 
checkpoint restart was processing or a 
previous ABEND occurred. 

ENTRY POINT: XB609RTY 

PURPOSE: 

To perform cleanup processing when an abend 
occurred during Checkpoint restart processing. 

LINKAGE: SYNCH 

CALLERS: RTM 

INPUT: Estae parameters 
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XEFXB609 - MODULE DESCRIPTION (Continued) 


OUTPUT: None 
EXIT NORMAL: 

EXIT ERROR: Return to IEFIB605 

EXTERNAL REFERENCES: 


ROUTINES: 

IEFXBDYS 

IEFXBGDG 

IEFXBRDC 

IEFXBSJX 

IEFXBSWA 

IEFXBUSJ 

IEFXB610 

IEFAB4F5 

IEFGB4DC 

IEFDB476 

IEFEB4UV 


Restart Dynamic SIOT Processing Routine 
Restart GDGNT Processing Routine 
Restart Read Checkpoint Dataset Routine 
Restart SIOT/JFCB and Extension 
Processing Routine 
Restart SWA Manager Routine 
Restart Unmatched SIOT/JFCB Processing 
Routine 

Restart Checkpoint Dataset Open Processor 
Allocate Catalog Control 
Dataset Reservation/Release 
Dynamic Allocation Error Message Processor 
Enhanced Unit Verification Interface 


DATA AREAS: 

IEFXB603 - Restart Message Module 
IEFXBCRW - Checkpoint Restart Work Area 
- Checkpoint Dataset 


CONTROL BLOCKS: 

ATCA - Allocation Communication Area 

CSCB - Command Scheduling Control Block 

CVT - Communications Vector Table 

DACA - Device Allocation Communication Area 

DCB - Data Control Block 

DSAB - Dataset Association Block 

GDA - Global Data Area 

GDGNT - GDG Name Table 

JCT - Job Control Table 

JESCT - Job Entry Subsystem Communications Table 

JFCB - Job File Control Block 

JFCBX - Job File Control Block Extension 

JSCB - Job Step Control Block 

LCT - Linkage Control Table 

PSA - Prefixed Save Area 

QDB - Queue Descriptor Block 

SCT - Step Control Table 

SCTX - Step Control Table Extension 

SDWA - System Diagnostic Work Area 

SIOT - Step Input/Output Table 

TCB - Task Control Block 

TIOT - Task Input/Output Table 

UCB - Unit Control Block 
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IEFXB609 - MODULE OPERATION 


The following steps are involved in the process 
of merging the SWA information in the DSDR records 
on the checkpoint dataset to the SWA blocks in SWA: 

1. Acquire the dynamic storage to be used by the 
DSDR processing and service routines of IEFXB609. 
Initialize the Checkpoint Restart Work Area to be 
used by the DSDR processing and service routines. 

2. Establish the recovery environment. 

3. Locate the SIOT and JFCB for the checkpoint 
dataset> dynamically allocate and open the 
checkpoint dataset. 

4. If the type of restart is deferred, create the 
proper SCT structure. Ensure that the restart 
SVC gets control when the job is initiated. 

5. Read the Checkpoint Header Record for this 
checkpoint ID, process the pertinent information 
contained in it and save the record for passing 
to the Restart SVC. 

6. Read the checkpoint dataset to determine if any 
DDNAME Tables (DDNTs), representing JCL defined 
DDNAMEs that were dynamically unallocated prior 
to the checkpoint, exist. If any exist, the SIOTs 
representing these DDNAMEs will be removed from 
the SIOT chain. 

7. Read the DSDRs on the checkpoint dataset, find 
the matching SWA block and call the appropriate 
processing routine to handle the DSDR. 

- IEFXBSJX for SIOTs, JFCBs, JFCBEs and JFCBXs. 

- IEFXBDYS for dynamically allocated SIOTs. 

- IEFXBGDG for GDGNTs. 

8. If any unmatched SIOTs/JFCBs remain on the chain 
after processing all DSDRs, module IEFXBUSJ is 
called to process these blocks appropriately. 

9. Build the restart parameter list. 

10. Close the checkpoint dataset, cancel the recovery 
environment, free the local storage and perform 
any other cleanup as required. 

11. Return to caller 

RECOVERY OPERATION: 

The recovery segment (RECOVERY) provides recovery for 
the Checkpoint Restart control and all processing 
routines as follows: 

If this is the first ABEND: 

1. Stores diagnostic information in the system diagnostic 
work area (SDWA). 

2. Writes an entry in the LOGREC dataset and takes an 
SVC dump. 

3. Specifies the retry address stored in the 
checkpoint restart workarea to RTM. 

4. Returns to RTM. 
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IEFXB609 - NODULE OPERATION (Continued) 


If a previous ABEND occurred: 

1. Frees the local storage that was obtained. 

2. Specifies that RTM percolate to the caller's 
recovery routine. 

3. Returns to RTM. 

If the error occurred in the Checkpoint Restart control 

routine, the retry segment (XB609RTY) in the Checkpoint 

Restart control routine receives control from RTM and 

does the following: 

1. Sets the return code to indicate a Checkpoint Restart 
system error. 

2. Cancels the recovery environment and frees the local 
storage that was obtained. 

3. Returns to the caller. 
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IEFXB609 - DIAGNOSTIC AIDS 


ENTRY POINT NAMES: IEFXB609 
RECOVERY 
XB609RTY 


MESSAGES: 

IEF006I jjj RESTARTING AT xxxxxx yyyyyy 
IEF007I RESTART NOT SUCCESSFUL FOR jjj (xxx) 

IEF010I CHECKPOINT RESTART OF JOB jjj ABENDED 
IEF209I VIRTUAL STORAGE UNAVAILABLE FOR jjj.sss.ppp 

The reason codes associated with message IEF007I are 
defined in the IEFXBCRW. 


ABEND CODES: None 


WAIT STATE CODES: None 


RETURN CODES: 

ENTRY POINT IEFXB609: 

EXIT NORMAL: 

(decimal) 

Register 15 = 0 - DSDR records successfully merged 
from the checkpoint dataset to 
SNA. 

EXIT ERROR: 

(decimal) 

Register 15 = 36 

- Error return code from a processing 
routine 

- Error return code from a supporting 
allocation routine 

- Error while opening or reading the 
checkpoint dataset 

ENTRY POINT RECOVERY: 

EXIT NORMAL: 

Register 15 = 4 - Retry to mainline cleanup processing 
EXIT ERROR: 

Register 15 = 0 - Do not retry 
ENTRY POINT XB609RTY: 

EXIT ERROR: 

Register 15 = 36 (decimal) 


REGISTER CONTENTS ON ENTRY: 

ENTRY POINT IEFXB609: 

Register 0 = Undefined 

Register 1 = Address of a word that contains 
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XEFXB609 - DXAGNOSTIC AIDS (Continued) 


the address of the input 
parameter list 
Registers 2-12 = Undefined 

Register 13 2 Address of 18-word save area 

Register 14 2 Return address 

Register 15 2 Entry point address 

ENTRY POINT RECOVERY! 

Register 0 = Indicates whether a SDWA was obtained 

Register 1 = Pointer to the SDWA if a SDWA was 

obtained 

Register 2 = Pointer to the ESTAE parameter list if 

a SDWA was not obtained 
Registers 3-13 2 Undefined 

Register 14 = Return address to RTM 

Register 15 = Entry point address 

ENTRY POINT XB609RTY s 

Register 0 = Undefined 

Register 1 = Address of the ESTAE parameter list 

Registers 2-14 2 Undefined 

Register 15 2 Entry point address 


REGISTER CONTENTS ON EXXT: 

ENTRY POINT IEFXB609: 


Register 0-14 = Restored 
Register 15 2 Return Code 

ENTRY POINT RECOVERY: 


Registers 0-13 = Undefined 
Register 14 = Return address 

Register 15 2 Retry address 

ENTRY POINT XB609RTY: 


Registers 0-14 = Restored 
Register 15 2 Return code 
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XEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 01 


IEFIB605 


c> 

IEFXB609 


This module performs common initial 
processing for the Checkpoint Restart 
processing routines* controls the 
processing of SWA information in the DSDR 
records on the checkpoint dataset to 
recreate the SWA environment at the time 
of a checkpoint for a restarting job and 
performs common cleanup processing. 


LSTESTAE 


Checks the addressability to 
the input parameter list. 


02 Obtain the local storage to 
— 1 be used by the restart 
control* processing and 
service routines. 


J\RETURN_C 

i/i-1 


RETURN CODE 


A. Obtains the local storage 

/■—'\|- 

\i--i/l GET LOCAL STORAGE: 14 


Invokes routine INITIAL to 
initialize the checkpoint 
restart workarea (CRWA), to 
establish the recovery 
environment to chain the SNA 
blocks by their virtual 
addresses and to create the 
unit affinity table. 


A. Perforins initialization 

/■-K|- 

\i- 1 / INITIAL: 17 


04 Allocate any private 
— 1 catalogs specified via 
JOBCAT or STEPCAT. 


XEFXBCRW 


CRWARCDE CR NOERR 


XEFASCTB 


SCTPCAT 


XEFXBCRW 


I CRWARCDE CR_N0ERRI 



->| A. Allocates private catalogs 


ALLOCATE CATALOGS: 53 


05 Find? allocate and open the 
1 — 1 checkpoint dataset. 

-> A. Allocates and opens the checkpoint 
dataset 

/I-1\.- 

\i- 1 / FIND ALLOC OPEN CKPTDS: 33 



06 Locate the checkpoint header 
— 1 record in the checkpoint 
dataset for the checkpoint 
specified and process the 
pertinent information 
contained in the record. 
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1EFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 06A 


IEFXBCRW 


CRWARCDE CR NOERR 


-> A. Reads the checkpoint header record 

/i—i N| -, 

\i- 1 / CHECKPOINT HEADER REC PROC: 3 


IEFXBCRW 

CRWARCDE CR_NOERR 

IEFXBDDR 

DSDR_RECORD_ID 

DSOR_CIR_ID 

IEFXBCRW 


'rDUAnTVD 


IEFXBDDR 


DSDR RECORDED 
DSDR SIOT JFCB ID 


IEFJFCBN 


Processes all the DSDRs 
present on the checkpoint 
dataset. Call the 
appropriate processing 
routine to handle the type 
of DSDR encountered. When a 
core image record (CIR) is 
found all DSDRs have been 
processed. 


A. Reads the next DSDR 



IEFXBRDC 


B. Find the matching SIOT in SWA 

/X —N- 

-/ SIOTSCAN: 47 


KIEFXBCRW 

i/|- 

CRWADTYP 

CRWARANY 



IEFXBCRW 

CR^ADEFR CRWARCDE 
CR_NOERR 

IEFASIOT 

SCTDDNAM SIOTJSCT 

IHJMCHR 


KIEFAJCTB 

JCTCKTTRl 


C. Performs SIOT/JFCB merge processing 

/•- l \i- 

\|-,/ IEFXBSJX 

CRWA, SJX_MERGE 


IEFASIOT 


SCTPJFCB 


IEFXBDDR 

DSDR DYNAMIC_SIOT 
ID 


-> D. Performs dynamic SIOT/JFCB merge 
processing 


IEFXBDYS 


IEFXBDDR 


DSDR GDGNT ID 


-> E. Performs GDGNT merge merge 

/I-l\.- 

\i-./ IEFXBGDG 
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XEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 07F 


XEFXBDDR j-> 

DSDR_D DNTID 


IEFXBCRW J-> 

IcRWARCDE CR_NOERr| 


XEFXBCRU j-> 

IcRMARCDE CR_NOERR| 


RTM 


D 


XB609RTY 


IEFXBCRW 


CRWACRll CRWACR12 
CR_SYSERR 



1 / 


XEFXBCRW 

IcRWARCDE 



1/ 


F. Performs DDNT merge processing 
/'-'\.- 


ODNTPROC: 39 


08 


Calls XEFXBUSJ to process 
any SXOTs that have remained 
unprocessed. These are extra 
SXOTs for which there was no 
record on the DSDR. 


A. Processes unmatched SIOTs 
/<- 1 

\(-i/l IEFXBUSJ 


CRMA 


09 


Calls Unit affinity 
processing to renumber the 
SXOTs sequentially and to 
update the SXOTs requesting 
affinity with the new DD 
numbers. 


A. Renumbers SIOTs and updates unit 
affinity requests 
/I-1\.- 

\|-1/ UNIT_AFFINITY: 31 


UNITAFF_RENUM_UPOATE 


10 


If entering from RTM after 
an ABEND * restores the data 
register* the code 
registers* and the save area 
pointer. Sets the return 
code to indicate a restart 
system error. 


11 


Invokes the Termination 
routine to perform any 
required cleanup for normal 
or error processing. 


A. Performs termination 
/'-- 


TERMINATE: 49 


12 


Free the local storage used 
by the restart control* 
processing and service 
routines. 


■KIEFXBCRW 
1/ 


CRWARCDE 


J\RETURN_C 
I'l-1 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 12A 





GET WORKING STORAGE 


15 Obtains the working storage 
— 1 to be used by unit affinity 
processing. 


16 Determines if any working 

1 - 1 storage exists and if the 

piece remaining is large 
enough for the request. 

A. If no working storage exists or the 
piece remaining is not large enough for 
the request, obtains a piece of storage 
and chains it to the working storage 
chain. 

B. Reduces the size of the working storage 
available by the size of the request. 
Sets a pointer to the storage for the 
request and returns it to the caller. 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 17 


17 > 17 Performs initialization 

- 1 / — 1 processing required for the 

initial restart control, processing 

and service routines. 


ZEFALLCT 


ILCTRFBDC 


IEFXBCRW 


CRWABUFF 


IHAPSA 


PSATOLD 


XEZJSCB 


IJSCBACT 


IKJTCB 


ITCBJSCB 


ZEFALLCT 


LCTJCTAD LCTJCTVAf 


ZHAESTA 


ESTAFLGl ESTAFLG2i 


Znitializes the global 
variables in the Checkpoint 
Restart workarea (CRWA) and 
the local variables for use 
by the control routine 


J \ 19 Establishes the recovery 
i/ 1 — 1 environment. 


ZEFXBCRW 


CR ERR CRRCRECV 


20 Calls Chain_Blocks to chain 

1 - 1 the SIOTs, JFCBs, JFCBXs and 

GDGNTs by their block 
addresses. 

A. Chains blocks by addresses 



\IEFXBCRW 

/«- 

CRWAJCTS 

CRMAJCTP 

CRWADCBP 

CRNA_IJS 

CB 

CRMA_PPJ 

SCB 

CRJ'IADEFR 

CRWAAUTO 

CRWADDRP 




\ZEFXBCRW 

/.- 

CRWACRll 

CRWACR12 

\ZHAESTA 

/\ - 

ESTAFLGl 

ESTAPARM 
ESTAFLG2 
ESTAFLG3 
ESTANEXT 


\ZEFXBCRW 


CRWARCDE 
CRNAREAS. 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 21 


XEFZB505 


1EFXBCRW 


.CRWASTYP 


IEFXBCRW 


CRWADEFR 


IEFAJCTB 


. JCTSSTR 


CHAIN BLOCKS 

■-=-K 


Performs chaining of SWA 
blocks (i.e. SIOTs, JFCBs, 
JFCBXs, JFCBES and GDGNTs) 
by their virtual addresses. 


If this is a deferred 
restart, the fake SCT 
inserted by the converter 
interpreter must be removed 
from the Job's SWA 
structure. The SIOT anchored 
in the fake SCT is used to 
locate the checkpoint 
dataset. 



MEFXBCRW 

/.- 

CRNAEPAP 

CRWASTYP 

CRWAREAD 

\IEFZB505 

IsMAEPA I 


MEFZB505 
IsWVA I 


A. Invokes SWA interface routine 


IEFXBCRW 


CRWARCDE CR NOERR 


ZEFZB505 


SNBLKPTR 


IEFASCTB 


.SCTFSIOT SCTANSCT. 


IEFXBCRW 



B. Invokes SWA interface routine 


IEFXBSWA 



MEFAJCTB 


JCTSDKAD 

JCTSSTR 


MEFALLCT 

/.- 

LCTSCTVA 

\ZEFZB505 


CRWARCDE CR NOERR 


IEFZB505 


SWBLKPTR 


C. Chains the JFCB and JFCBXs by their 
addresses 

/i—K.- 

\|- 1 / CHAIN JFCB JFCBXs 28 


IEFXBCRW 


CRWARCDE CR NOERR 


IEFAJCTB 


Calls the restart SWA 
Manager interface routine to 
obtain the address of the 
SCT of the step to be 
restarted. 


KIEFZB505 

}/ \ - 1 

SWVA 


JCTSSTR 


A. Invokes SWA interface routine 

/>-<\i- 

\i- 1 / IEFXBSWA 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 24 


IEFXBCRW 


CRHARCDE CR NOERR 


XEFZB505 


SWBLKPTR SHVA 


XEFASCTB 


SCTFSIOT 


Chains through the SXOTs 
anchored in the SCT using 
the restart SWA Manager 
interface routine and chains 
the SXOTs by the block 
addresses. 



\IEFXBCRW 

/, - 1 

CRNASCTS 

CRHASCTP 

\IEFALLCT 

LCTSCTAOI 


\IEFZB505 

ISUVA I 


A. Invokes SWA interface routine 


IEFXBCRW 


CRHARCDE CR.NOERR 


XEFASCTB 




B. Invokes SWA interface routine 

/■- 1 \.- 

\,-,/ IEFXBSWA 


If this SIOT requests unit 
affinity, the address of 
this SIOT will be passed to 
Unit_Affinity to create a 
unit affinity element for 
this SIOT. 


A. If no errors so far If SIOT indicates 
unit affinity Adds this SIOT to the unit 
affinity table 


UNIT AFFINITY: 31 


UNITAFF ADD 



UEFXBCRW 


CRWAFSIS 

CRWAFSIP 

CRWALSIP 
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XEFJFCBN 

JFCBEXTP 

XEFJFCBN 


,JFCBEXAD 


I Chains through the JFCBXs 
-* anchored in the JFCB using 
the restart SWA Manager 
interface routine and chains 
the JFCBXs by the block 
addresses. 

Invokes SWA interface routine 






XEFXBCRW 
CRWARCDE CR_NOERR 
IEFZB505 


SWBLKPTR 


XEFASIOT 


SIOTJFX 


IEFJFCBX 


IJFCBXTTR JFCBXNXT 
XEFXBCRW 

CRWARCDE CR_NOERR 

XEFZB505 


SWBLKPTR 




\IEFASIOT 

/, - 1 

SJFCBPTR 


\XEFZB505 

/.- 1 

SWVA 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 31 


->\ 

31 > 

-1/ 


PARAMETERS 

UNIT. 

AFFINITY 

lv 

[ 


REQJTYPE | 

H” 


PARAMETERS 


J”' 


REQJTYPE 




XEFASIOT 


SIOTUNAF SCTDDINO 


IEFXBCRW 


CRWAFSIP | 

r 

IEFASIOT 


SIOTNPTR | 

r 

IEFXBCRW 

j 

CRWARCDE CR_N0ERR 



IEFXBCRW 


CRWAFSIP CRJERR 
CRRCUNAF 


IEFASIOT 


SCTDDINO SIOTNPTR j- 


J\ 

V 


J\ 

V 


31 


Adds or updates entries in 
the unit affinity table. 


32 


Determines the type of unit 
affinity request to be 
processed. 


A. For add requests* storage is obtained 
for a new unit affinity element. The 
element is initialized with the 
information for this unit affinity 
request and chained to the existing 
table anchored in the CRWA. 


B. 


Get the storage 



GET_WORKING_STORAGE: 15 


C. For update for removal of SIOT requests* 
the affinity table is searched for any 
elements which request affinity to the 
SIOT being removed. If any are found* 
the unit affinity DD number in the SIOT 
requesting affinity is zeroed and the 
address of the SIOT to which affinity is 
requested is zeroed in the element. 

0. For update for renumber of SIOT 

requests* all the SIOTs on the SIOT 
chain are numbered sequentially. The 
elements in the unit affinity table are 
processed to update the unit affinity DD 
number in the SIOT with the updated DD 
number of the SIOT to which affinity was 
requested. 


J \IEFASI0T 



J \IEFASI0T 
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IEFASIOT 


SIOVAMDS 


IEFZB505 


SWBLKPTR 


IEFJFCBX 


JFCBXTTR JFCBXVOL 


IEFJFCBN 


| JFCBFLSQ 
IEFZB4D2 
DALUNXT DALDSSEQ 
IEFASIOT 
SCTUTYPE 
IEFZB4UV 

FUNCFLGS UNITTAB 
ATRIBUTS ATRLENC 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 35 


IEFTI0T1 


TIOEDDNM 


XEZJSCB 


JSCDSABQ 


IHAQDB 


OPEN CKPTDS 


35 Opens the checkpoint dataset 


A. Invokes the SNA interface routine 
/I—-J\, 

\i - 1 / IEFXBSWA 


MEFZB50 5 

1 IsWVA I 



QDBFELMP 

IHADSAB 


DSABFCHN 


IEFTI0T1 


TIOEJFCB | 

XEFXBCRW 

CRNADEFR CRWARCDE 
CR_NOERR 

IEFZB505 


SWBLKPTR 


IEFJFCBN 


JFCBVLSQ JFCDS0R6| 

IEFTI0T1 


TIOEFSRT 


IEFUCBOB 


UCBTYP 


IEFALLCT 


LCTQDRTY 

IHADCB 


DCBDSGPO DCBOFOPN 


IHADSAB 


B. Attaches IEFXB610 to open the checkpoint 
dataset. 

C. Waits for the open to complete. 


D. Determines if the dataset was opened 
successfully. Checks to see if the 
checkpoint dataset is a PDS and if so 
finds the member name. 



KXHADCB 

7 /|- 

DCBDSORG 

KIEFAJCTB 

]/ l- 

JCTDEVT 

JCTVOLSQ 


MEFXBCRW 

/.- 

CRWARCDE 

CRWAREAS 


DSABCKVL 

IEFXBCRW 

CR_ERR CRRCSECU 
CRRCOPEN CRRCMEMB 
CRRCCANC CRRCE610 

IEFAJCTB 


IJCTCKIDT 
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IEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 36 


>36 Processes the pertinent 


CHECKPOINT HEADER REC PROC 


information contained in the 
checkpoint header record 
(CHR). 


XEFXBCRW 


CRWADTYP 


IEFAJCTB 


, JCTCKIDT 


XEFXBCRW 


CRWARCDE CR NOERR 



XEFXBCRW 


|CRWADDRP 

IHJMCHR 


IHJCHRDA IHJPPM 


\ 37 Reads the checkpoint header 

11 - 1 record from the checkpoint 

dataset* 

A. Reads the c heckpoint header record 
\,-/ IEFXBRDC 


KIEFXBCRW 



Processes the information 
contained in the checkpoint 
header record and saves it 
for inclusion in the restart 
parameter list. 


■> A. Saves the checkpoint header record for 
\ inclusion in the restart parameter list. 
/ 


B. Determines if the private area on the 
original execution is valid for the 
restart. 



CRWARCDE 
. CRWAREAS. 
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XEFXBCRM 


CRHAAUTO 


XEFAJCTB 


JCTSYSCK 


XHJMCHR 


IHJVEQR 


IEFASCTB 


SCTRGSZ 


XHJMCHR 


IHJCOUNT 

IHJPPM 

IHJPPE 

IHJPPML 

IHJPPEL 

IHJREGRQ 



-'N 

39 > 

—- 1 / 

DDNTPROC 


XEFZB505 


SMAEPA 


XEFXBCRM 


CRHASTYP 


XEFQMXDS 


SWDDNTID 



C. Obtains the required information from 
the checkpoint header record for 
inclusion in other SHA control blocks 
and the restart success message. 


This routine removes the 
sxots for the DDNAMEs in the 
DDNT which were dynamically 
unallocated prior to the 
checkpoint. 


m Assigns a SWA DDNT for the 
J checkpoint DDNT. Anchors the 
SWA DDNT to the DDNTs 
anchored in the SCT and 
writes the SWA DDNT to SWA. 

Assigns a SWA block for the DDNT 

/I-1\.- 

-/ IEFXBSWA 


J\IHJMCHR 


IHJAUTOS 


MEFAJCTB 

/r- 

JCTNRCKP 

MEFASCTB 


EAADDRBT 

SCTMSADR 

SCTMSSZE 

SCTRGSZ 
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ZEFXBDDR 


,DSDR HEADER 

Idsdr ddnt 


IEFXBCRW 


CRWARCDE CR NOERR 


ZEFXBDDR 


.DDNT NUM DDNAMES 


ZEFXBDDR 


DDNT DDNAMES 


ZEFXBCRW 


CRWARCDE CR NOERR 


ZEFASZOT 


SCTDDNAM 


ZEFXBCRW 


CRWACSIP 


ZEFASZOT 


SIOTNPTR 


> 41 Processes all the DDNAMEs in 
\ 1 - 1 the DDNT. 


A. The SIOT representing the JCL defined 
DDNAME in the DDNT will be removed from 
the SWA structure. If the DDNAME is a 
member of a concatenated group of DDs> 
all DDs in the group will be removed. 

B. F inds^ the matching SIOT in SWA 
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XEFXBCRW 
CRWAFSIP CRWALSIP 
IEFASIOT 


SIOTOSKA SCTPSIOT 
SIOTNPTR 


XEFXBCRW 


CRWARCDE CR NOERR 


IEFASIOT 


SIOALIAS SIOTJFX 


IEFJFCBX 


JFCBXNAM 



■> C. Removes the SIOT from the chain by 
\ chaining around the SIOT, 

/ 

D, Calls Unit_Affinity to update the unit 
affinity table for the SIOT being 
removed. 


E. Updates unit affinity table for SIOT 
being removed 

/l —N- ———— - 


i 



->| H, If the dataset name has an alias, 

determines if the alias dataset name is 
still required. 

I. Checks if the alias datase name is still 
required 


KIEFXBCRW 

i/i- 

CRWAFSIS 

CRWAFSIP 

CRWALSIP 


SCTFSIOT 

SCTLSIOT 


SCTPSIOT 

SIOTNPTR 



CRWACSIP 


> 42 Determines if the dataset 


CHECK_DSN_REQUIRED 


name associated with the 
SIOT being removed is still 
required. 
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XEFASXOT 

SIOALXAS SJFCBPTR 
SIOTJFX 

IEFJFCBN 

Ijfcbdsnm I 


IEFJFCBX 


-> 43 Searches the S10T chain to 
J\ 1 — 1 determine if the dataset 
i/ name passed is still 
required. 


44 If the dataset name is no 
— 1 longer required* calls 
. Update DSENQ to remove the 
dataset. 


JFCBXNAM 


XEFXBCRW 


CRWAFSIP 


XEFASXOT 


SIOTNPTR 


A. Removes the dataset name from the DSENQ 

/*-Ki-L. 

\ |-, / UPDATE..DSENQ 

DSENQ_REMOVE> DATASET_NAME > 0 


45 > 45 This routine finds the SXOT 

1 -1/ — 1 corresponding to the DDNAME 

ddmtsiot in the DDNT. 


XEFASXOT 


SCTDDNAM SIOTDYAL 


XEFXBDDR 


DDNT DDNAMES 


XEFXBCRW 


CRWAFSIP CRWACSIP 


XEFASXOT 


SIOTNPTR 



Finds the JCL defined SXOT 
in SVJA corresponding to the 
DDNAME in the DDNT. 


KXEFXBCRW 
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-*\ 

47 > 

|/ 

IEFXBCRW SIOTSCAN 

- —-*\ 

CRWACSIP CRWALSIPi- \/ 


IEFXBCRW r-> 


CRWADEFR 



IEFXBDDR 


DSDR_D$ABDALC | 


IEFXBCRW 

S" 

CRWACSIP 


IEFXBCRW 


CRWAFSIP | 


IEFASIOT 


SIOTNPTR | 


IEFASIOT i 

r— 

SCTDDNAM SJFCBPTR 



IEFXBDDR 


DSDR_DDNAME 



IEFJFCBN 


JFCENT 



IEFXBCRW 


CRWADEFR CRWARCDE 


CR_NOERR 


IEFASIOT 


SIOTNPTR 


IEFXBCRW 


CRWACSIP CR_ERR 


CRRCSNFD 



47 


This routine finds the SIOT 
in SWA corresponding to the 
DDNAME in the DSDR. 



Finds the SIOT in SWA 
corresponding to the DDNAME 
on the DSDR. 


A. If this is a deferred restart and the 
DSDR indicates that the SIOT was 
dynamically allocated* no match will be 
found in SWA so a new SIOT and JFCB will 
be created. 


B. If this is not a deferred restart or the 
SIOT was not dynamically allocated* the 
SIOT chain is searched for the SIOT in 
SWA which matches the DDNAME on the 
DSDR. 


C. The SIOT chain is searched starting with 
the next SIOT of the previously matched 
and processed SIOT until a match is 
found or the end of the chain is 
reached. The SIOT must match on the 
DDNAME* be a member of the same 
concatenated DD group and not be a 
generated SIOT. Bit JFCENT in the JFCB 
indicates whether the SIOT was 
generated. Generated SIOTs are not 
processed by checkpoint restart. These 
SIOTs will be recreated by allocation 
when the job restarts* If any generated 
SIOTs are on the chain* they are bubbled 
to the end and removed by the unmatched 
SIOT/JFCB processing in IEFXBUSJ. 


■KIEFXBCRW 


CRWACSIP 

CRWARCDE 

CRKAREAS 
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IEFXBCRW 


CRWAFSIP CRNALSIP 
CRWARCDE CR_NOERR 


IEFASI0T 


SCTDDNAM 


IEFXBDDR 


DSDR_DDNAME 


IEFXBCRW 


CRWACSIP 


IEFASIOT 


SIOTDSKA SCTPSIOT 
SIOTNPTR 


IEFXBDDR 


DSDR_DSABDALC 


IEFJFCBN 


JFCVRDS 


IEFXBCRW 


CR_NOERR CR_ERR 
CRRCNOER CRRCEVIOI 


If the SIOT in SWA does not match the 
DSDR SIOT y the SIOT is moved to the end 
of the chain so that the chain will be 
ordered as the TIOT appeared at the time 
of the checkpoint. 


E. If the matching SIOT was not found and 
the DSDR indicates that the SIOT was 
dynamically allocated and not VIO> a new 
SIOT and JFCB will be created for this 
DDNAME on the DSDR. Otherwise> the 
return and reason code is set to 
indicate the error. 

F. Calls IEFXBSJX to assign and initialize 
a new SIOT and JFCB. The current SIOT 
pointer (CRWACSIP) will be set to point 
to the new SIOT by IEFXBSJX. 

G. Initialize a new SIOT and JFCB 


IEFXBSJX 


MEFASIOT 


SCTPSIOT 

SIOTNPTR 


MEFXBCRW 


CRWAFSIS 

CRWAFSIP 

CRNALSIP 


SCTFSIOT 

SCTLSIOT 


MEFXBCRW 


CRWARCDE 

CRWAREAS 


CRWA, SJXJENITJvlEW 


IEFXBCRW 

CRWALSIP CRWARCDE 
CR_NOERR 

IEFXBCRW 


CRWAFSIS CRWAFSIP 
CRWACSIP CR_ERR 
CRRCSNFD 


IEFASIOT 


SIOTDSKA SCTPSIOT 
SIOTNPTR 



MEFASIOT 


SCTPSIOT 

SIOTNPTR 


MEFXBCRW 


CRWAFSIS 

CRWAFSIP 

CRWALSIP 

CRWARCDE 

CRWAREAS 


MEFASCTB 


.SCTFSIOT. 
SCTLSIOT 
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>49 Performs termination 


TERMINATE 


XEFXBCRU 
CRWARCDE CR_NOERR 
XEFXBCRU 
CRWADTYP 


XEFXBDDR 


| DSDR_PPIR_ID 
XEFXBCRU 
CRHARCDE CR_NOERR 
XEFXBCRU 




XEFZB505 




XEFASCTB 


SCTXBTTR 


XEFXBCRU 


CRHARCDE CR.NOERR 


IEFZB505 


SHBLKPTR 

XEFXBCRU 

CRHARCDE CR_NOERR 

XEFXBCRU 

CRHAREAS CR ERR 
CRRCPRIV CRRCCANC 

XEFXBCRU 

IcR SYSERR \ 


-- \ 

I- ^ 


processing required for 
normal and abnormal 
processing in checkpoint 
restart processing. 


50 Determines if any error was 
1 — 1 found during restart 
processing. 

A. If no errors» complete -the restart 
parameter list for the restart SVC (SVC 
52) and set the message to the restart 
success message. 

B. Reads the PPIR. 

/' • 

\ 



-> E. The success or appropriate error message 
is constructed and issued. 


-> F. If an error was found while processing 
the restart request, determines the 
)/ appropriate error message to be issued. 


\IEFASCTB 

/i-1 

SCTGOSTP 

SCTSYSCK 

MEFXBCRU 



KXEFXBCRU 

i / |-1 

CRHARCDE 


LY28-174S-1 (c) Copyright IBM Corp. 1987, 1989 


Method of Operation SCR-145 































"Restricted Materials of IBM" 
Licensed Materials - Property of IBM 


XEFXB609 - Checkpoint Restart Dataset Descriptor Record Processor ContSTEP 506 


XEFAJCTB 

JCTJNAME | 

XEFXBCRW 

CRWAREAS [ 

IEFASCTB 
SCTSCLPC SCTSNAMEj 
XEFXBCRW 
IcRHARCDE CR NOERR 


G. If a restart system error occurred, the 
]/ message to be issued is set. 


-> H. Deletes the recovery environment. 


FREE LOCAL STORAGE 


51 Frees local storage obtained 
— 1 for use by the processing 
and service routines and for 
unit affinity processing. 


A. Frees any local storage obtained for 
unit affinity. 

B. Frees the local storage obtained for the 
dynamic storage of the restart 
processing and service routines. 


KIEFALLCT 


LCTCKRST 



CRWAFP_6 

09 


XKJTCB 


FREE RESOURCES 


52 Frees resources allocated by 
— 1 IEFXB609. These include 

items such as the checkpoint 
dataset, any private 
catalogs that were allocated 
and posting and detaching 
IEFXB610* 


-> A. If the checkpoint dataset was allocated. 


KIEZJSCB 


TCBLTC 


/ \ 

it is unallocated. 

-' / i-1 

JSCBACT 

IHADCB 






DCBOFOPN 
XEFXBCRW 
CRWA_IJSCB | 

XEFXBCRW 
ICRWAREAS CRRCCANC 


-> B. If the checkpoint dataset was opened, it 
is closed. 

C. Waits for IEFXB610 to complete. 
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IEFZB4D0 


IEFZB4D0 


S99VRBUN 


IEFXBCRW 


CRWA PPJSCB 


-> D. If IEFXB610 was attached, it is 
K detached, 
l/ 

E. If any private catalogs were allocated, 
they are unallocated. 


IEFZB505 


ALLOCATE CATALOGS 
l- J \ 


SWAEPA SWBLKPTR 


IEFXBCRW 

CRHA IJSCB 
CRWASTYP 

IEZJSCB 


IJSCBPCC JSCDSABQr 


This routine will allocate 
any private catalogs 
specified via JOBCAT or 
STEPCAT for the restart step 
by invoking allocation 
catalog control. 


IHAQDB 

QDBLELMP 

IEFZB442 


IACCNTRLS 


IEFXBCRW 


CRWARCDE CR NOERR 


IEFASIOT 


SJFCBPTR 


IEFJFCBN 


IJFCBDSNM 


i The private catalogs 
J specified via JOBCAT or 
STEPCAT are dynamically 
allocated to the initiators 
TCB. This will allow the 
checkpoint dataset to be 
allocated in the case that 
it is cataloged in a private 
catalog. 

Calls the allocate catalog service 
routin e of^ allocation 

\i-./ IEFAB4F5 


MEFZB4D0 

/.- 

S99VERB 

S99TXTPP 



SMAEPA 

SWVA 

MEZJSCB 

/.- 

JSCBPCC 

JSCBACT 

MEFZB442 

/.- 

ACCMTRLS 

ACNODO 

ACOFLINE 

AC0X2MNT 

ACSTPCAT 

ACALCTLG 

ACOPNACB 

ACCCPCCB 


ACCNTRLS, RTCDPTR, JSCBPTRP, 
CTGDSNP, 0, 0 
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C EFXBCRW r -> 1-KIEFXBC 

-.J .-K --- - 


IEFXBCRW 
CRWARCDE 
IEFXBCRW 


CRWA_PPJSCB 
CR_ERR CRRCCATL 


IEFASIOT 


SIOTNPTR 


IHAQDB 


QDBFELMP 


IHADSAB 


DSABFCHN 


IEFXBCRW 




IEFZB443 


UCCNTRLS 


UNALLOCATED ATALOGS 

.-K 


This routine will unallocate 
any private catalogs 
allocated by 
ALLOCATE CATALOGS. 



IHADSAB 


t DSABFCHN 
IEFZB443 

UCCNTRLS 


XEFXBCRW 

CRWARCDE CR_NOERR 

XEFXBCRW 


CRWA_PPJSCB 
CR ERR CRRCCATL 


56 The private catalogs 
u — 1 specified via JOBCAT or 
STEPCAT are dynamically 
unallocated from the 
initiator. 


-> A. Unallocates the private catalog 
I LINK 



\XEFXBCRW 

/i-1 

CRWARCDE 
CRNAREAS 



UCCNTRLS 

UCALLCAT 

UCALLACB 

UCALPCCB 


MHADSAB 

l'l-1 

IDSABCATL 
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RTM 

RECOVERY 


IHASDWA 


IEFXBCRW 


CRWA_PPJSCB 
CRWACR11 CRWACR12 


IHASDWA 


SDWAABCC 


IEFXBCRW 


CRWARTRY 


IEFXBCRW 


CRWARTRY 


j-r 




-t i/ 


->\ 

V 


59 


If this is the first ABEND 
processed* does the 
following: 


A. Issues a SETRP macro instruction to 
record the data. 

B. Stores the diagnostic information in the 
SDNA and VRA. 

/ l -* N | 

\i- 1 / DIAGDATA 


C. Takes an SVC dump. 
/l - ,S |- 


DUMP 


D. Specifies retry to the retry address 
specified in the checkpoint restart 
workarea. 


60 


If this is not the first 
ABEND* does the following: 


A. Frees the resources allocated by 
IEFXB609 


FREE RESOURCES: 52 


B. Frees the restart local and working 
storage 

/I- T\. - 


FREE LOCAL STORAGE: 51 


C. Specifies percolation to the caller's 
recovery routine. 


61 


Returns to RTM. 




i-N 

1 - 1 the code register, and the 

-,/ 


SDWAPARM 



1- l/ 

save area pointer. 


JSCBACT 


57 


Performs recovery for the 
Restart control routine 
(IEFXB609) and the restart 
processing and service 
routines. 


58 


-KIEZJSCB 


tTI 


\ / 
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